Select Code to Download

use strict;
use warnings;

local $/ = 'Frame: ';

while (<>) {
}

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

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

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

use strict;
use warnings;
...
    my $count = grep /C/, split /\n/;
    print "Frame: $frame " . $count . "\n";
}

Frame: 11 7
Frame: 12 7