in reply to Perl Idioms Explained - my $string = do { local $/; <FILEHANDLE> };
What about the 'idiom'
my $data = do{local(@ARGV,$/)='file.txt';<>}
In Section
Meditations
in reply to Perl Idioms Explained - my $string = do { local $/; <FILEHANDLE> };