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