Select Code to Download

undef $/;
my $whole_thing = <TEST>;
my @chunks = split /(?=^\w)/, $whole_thing;
my @chunk_lines = map { [split /\n\s*/] } @chunks;

my @chunk_lines;
my $this_chunk = 0;
...
    if (/^\w/) { ++$this_chunk }
    else { push @{$chunk_lines[$this_chunk]}, $_ }
}