my $count=0;
$count += substr($dna, $_, 1) =~ /[CG]/ for map 3 * $_, 1 .. length($dna)/3;
print $count;