http://qs321.pair.com?node_id=287747


in reply to Perl Idioms Explained - my $string = do { local $/; <FILEHANDLE> };

Also available is File::Slurp.
use File::Slurp; my $string = read_file("somefile.txt");