my $string = do { local $/; open local(*FILEHANDLE), 'somefile.txt' or die $!; }; #### my $string = do { local $/; open my $fh, 'somefile.txt' or die $!; <$fh> };