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