Slurp with Perl

slurp.pl

#!/usr/bin/perl
#
# 2014-11-19: dsoares
#  also see https://metacpan.org/pod/File::Slurp
#

use strict;
use warnings;
use 5.010;

sub slurp {
    my $file = shift;
    open my $fh, '<', $file or die;
    local $/ = undef;
    my $cont = <$fh>;
    close $fh;
    return $cont;
}

my $file = 'data.txt';
my $data = slurp($file);
print $data;

$data =~ s/Java\s+is\s+Hot/Jabba The Hutt/g;

say '-' x 30; 
print $data;