sub slurp {
    local $/ = undef;
    open my $fh, $_[0] or die "Can't open $_[0]: $!";
    my $slurp = <$fh>;
    return $slurp;
}
my $content = slurp($file)

##</code><code>##

open my $fh, $file or die "Can't open $file: $!";
my $content = join "", <$fh>;
close $fh;  # or just let it close by the next }