open(my $fh, '<:perlio:raw', $qfn);

##</code><code>##

open(my $fh, '<', $qfn);
binmode($fh);

##</code><code>##

local $/;
my $str = <$FI>;

##</code><code>##

read $FI, my $str, -s $FI;