open(my $data, '<:encoding(UCS-2le)', $file)

##</code><code>##

open(my $data, '<:raw:encoding(UCS-2le):crlf:utf8', $file)

##</code><code>##

read($data, my $bom='', 1);  # Discard BOM.