my $contents = do {local $/; <HANDLE>;}

##</code><code>##

my $contents;
{ local $/;
  $contents = <HANDLE>;
}