open (my $fh, '<:encoding(ucs-2le)', $file)