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

##</code><code>##

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