c:\@Work\Perl\monks\pmpmmpmp>perl -wMstrict -le
"open my $fh, '<', 'junk.txt' or die $!;
 ;;
 my $contents = do { local $/;  <$fh>; };
 print qq{[[$contents]]};
 ;;
 seek $fh, 0, 0;
 print 'now we go back to reading a file line-by-line again';
 while (<$fh>){
   print qq{<<$_>>};
   }
"
[[line 1 fee fie foe
line 2 wibble wobble
line 3 blah yada
]]
now we go back to reading a file line-by-line again
<<line 1 fee fie foe
>>
<<line 2 wibble wobble
>>
<<line 3 blah yada
>>