my $seq = $_[0]->seq();
while ($seq =~ /CG/) { ++$CG }

##</code><code>##

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