Select Code to Download

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

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