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