Use the 'local' keyword

my $filename = 'foo.txt';
open my $fh, '<', $filename or die;
my $content;
{
    local $/ = undef;
    $content = <$fh>;
}

# $content contains the full file content now.
[download]

Cheers, Flo