while ($seq =~ /GCT/ig) { $GCT++; }