open my $fh, '<:encoding(UTF-16LE)', ...