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