open my $fh, "<:encoding(UTF-16)", $filename or ...