use strict;
use warnings;

my $string = "CTCCGGATCTAT";
my $counter = 0;

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

print "Found $counter occurences$/";