open(my $fh, '<:encoding(UCS2-le)', $fn)