Select Code to Download

local $/ = "\nend\n";
while ( my $data = <DATA> ) {
...
go
two
end

start
go
...
two
end
==========

my $data = '';
while ( my $line = <DATA> ) {
...
        $data = '';
    }
}