{ local( $/, *FH ) ; open( FH, $file ) or die "$!\n" $text = <FH>; }open my $in, '<', $file or die "$!\n" my $text = do { local $/; <$in> };</fh>