my $substring = 'GATC';
my$i=0;
my$count;
my $sequence;

while ($sequence=<DATA>){
	foreach($sequence =~ /($substring)/g) { 
		print "$1\n";
	 	$count++;
    }
}
    print "There are $count negative numbers in the string\n";
    
__DATA__
GAGAGACCCCGATCGAGAGACCCGATCFGAGAVCTGATCCCC