open my $fh, "<:encoding(UTF-16LE)", ...
while (<$fh>) {