my $info;

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

##</code><code>##

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