open my $fh, '<:raw:perlio:encoding(UTF-16LE):crlf', $filename
    or die "Couldn't read '$filename': $! / $^E";

##</code><code>##

open my $fh, '<:raw:perlio:encoding(UTF-16LE)', $filename
    or die "Couldn't read '$filename': $! / $^E";