open(FH, 'filename') or die $!; my $text = do {local $/; }; close FH;