open my $fh, ">:raw:encoding(ucs-2le):crlf:utf8", $qfn #### open my $fh, ">:raw:perlio:encoding(ucs-2le):crlf:utf8", $qfn #### open my $fh, ">:raw:perlio:encoding(ucs-2le):crlf", $qfn
## open my $fh, ">:raw:perlio:encoding(ucs-2le):crlf:utf8", $qfn ##
## open my $fh, ">:raw:perlio:encoding(ucs-2le):crlf", $qfn