use File::Slurp; my $text = read_file( 'filename' ); #### my $text = do { local $/; open my $fh, '<', 'filename' or die "Error opening filename for read - $!"; <$fh> };