while ($seq =~ /\G(?:...)*?GCT/sig) { $GCT++; }