Build that programmatically.
my $regex = '(([QGYN])';
$regex .= '((?!\\' . $_ . ')[QGYN]|\\' . $_. '(?!\\${_}))' for 2 .. 3;
$regex .= '(?:((?!\\' . $_ . ')[QGYN]|\\' . $_ . '(?!\\' . $_ . '))' f
+or 4 .. 5;
$regex .= '[QGYN]?)?)?)';
$regex = qr/$regex/;
while ($seq{$k} =~ /$regex/g)
{
print "\n$k";
print $1." begins at position ", (pos($seq{$k})-length($s)) , "\n"
+;
}
Now, I have no idea what all that does, but it's easily broken apart. :-)
Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.