my ($current_frame, $count);
while (<$INFILE>) {
    if (/^(Frame:\s+\d+)/) {
    	print "$current_frame $count \n" if defined $current_frame;
    	$current_frame = $1;
    	$count = 0;
    elsif (/^C\d+) {
    	$count ++;
    }
}
print "$current_frame $count \n"; # prints last group