use File::Slurp;

open my $fh, "<", "QBF.txt" or die $!;
    local $/; # enable localized slurp mode
    my $content = <$fh>;
    close $fh;
print $content; # doesn't print anything.