while ($seq{$k} =~ /([QGYN]{3,6})/g) {
  next if $1 =~ m/QQQ|GGG|YYY|NNN/;
  print "\n$k";
  print $1." begins at position ", (pos($seq{$k})-length($s)) , "\n";
}