Select Code to Download

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

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

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

while ($seq =~ /\G(...)/sg) { $counts{uc($1)}++; }

my %counts;
++counts{uc($_)} for $seq =~ /.../sg;
...
      print("\n");
   }
}