for ( $_[0]->seq() =~ /CG/g ) { ++$CG }