use File::Slurp 'read_file';

my $string = read_file($filename);

##</code><code>##

my $string = do {
   open my $fh, '<', $filename;
   local $/;
   <$fh>;
};

##</code><code>##

my $string = do { local (@ARGV, $/) = $filename; <> };