| 1218 |
my ( $seq, $list, $op ) = @_; # op = ADD | REMOVE | CHECK (default: ADD) |
1218 |
my ( $seq, $list, $op ) = @_; # op = ADD | REMOVE | CHECK (default: ADD) |
| 1220 |
$seq_r =~ s/([()])/\\$1/g; # Adjust disturbing parentheses for regex, maybe extend in future |
1220 |
$seq_r =~ s/([(){}])/\\$1/g; # Adjust disturbing parentheses for regex, maybe extend in future |