open(my $fh, '<:encoding(UTF-16le)', $qfn)