# Preserve CRLF
open(my $fh, '<:raw:perlio:encoding(UTF-16le)', ...)

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