Select Code to Download

use strict;
use warnings;

...
$counter++ while $string =~ /..[GC]/gi;

print "Found $counter occurences$/";

use strict;
use warnings;

...
$counter += $flag{$1} while $string =~ /..(.)/g;

print "Found $counter occurences$/";