Help for this page

Select Code to Download

Select or download this
```
/(?:(?!(.)\1\1)[QGYN]){3,6}/;
```

Select or download this

while ($seq{$k} =~ /(([QGYN])
                   ((?!\2)[QGYN]|\2(?!\2))
...
print "\n$k";
print $1." begins at position ", (pos($seq{$k})-length($s)) , "\n";
}