my $count = grep /[GC]/, $dna =~ /..(.)/g;