# With LF<->CRLF conversion open(my $fh, '<:raw:perlio:encoding(UTF-16le):crlf', $fn)