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