There is a simple all-perl solution:

use strict;
use warnings;

my $seq = 'AAGCTTGACCGGG';
my $count = $seq =~ tr/CG/CG/;
print $count, "\n";

RESULT: 8
[download]