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