my $f;
open FILE ,'file.txt' or die $!;
{
    local $/ = undef;
    $f = <FILE>;
}
close FILE;