use warnings;
use strict;

my $substring = 'GATC';
my $count     = 0;
my $sequence  = 'GAGAGACCCCGATCGAGAGACCCGATCFGAGAVCTGATCCCC';
while ($sequence =~ /$substring/g) { $count++ }
print "count = $count\n";

__END__

count = 3