http://qs1969.pair.com?node_id=287794


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

What about the 'idiom' my $data = do{local(@ARGV,$/)='file.txt';<>}