use strict;
use warnings;

##</code><code>##

local $/ = 'Frame: ';

##</code><code>##

while (<>) {
}

##</code><code>##

next unless my ($frame) = /(\d+)/;

##</code><code>##

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

##</code><code>##

print "Frame: $frame " . $count . "\n";

##</code><code>##

use strict;
use warnings;

local $/ = 'Frame: ';

while (<>) {
	next unless my ($frame) = /(\d+)/;
	my $count = grep /C/, split /\n/;
	print "Frame: $frame " . $count . "\n";
}

##</code><code>##

Frame: 11 7
Frame: 12 7