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