Select Code to Download

my $poem;

...
        local $/ = undef;
        $poem = <DATA>;
}

my $poem = do { local $/; <DATA> };