use strict;
use warnings;

my $chunk = 0;
my $flag  = 0;

open my $fh, '<', "data.txt";
while (my $line = <$fh>) {
	chomp $line;
	my ($code, $state) = split / +/, $line;
	if ($flag and $state eq 'False') {
		print "\n#Chunk $chunk\n";
		$chunk++;
	}
	print "$line\n";
	$flag = 1;
}