while ($seq =~ /\G(...)/sg) { $GCT++ if uc($1) eq 'GCT'; }