my $poem;

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

##</code><code>##

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