my $file = do {
   local $/;
   <>;
};

##</code><code>##

  $file = join( '', <> );