my $string;
{
    local $/;
    $string = <DATA>;
}

##</code><code>##

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