Select Code to Download

local $/ = undef;
my $record = <INPUT>;
...
for my $chunk ( @chunks ) {
    my @lines = split /\n/ , $chunk;
}

local $/ = undef;
my $record = <INPUT>;
...
    my $chunk = shift;
    my @lines = split /\n/ , $chunk;
}