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

##</code><code>##

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