my $count = grep /C/, split /\n/;