Select Code to Download

use strict;
use warnings;
...
e f
s
adflkja

s
foo
e f

my $lines = '';
{
    local $/;
    $lines = <DATA>;
}