open(my $data, '<:encoding(UCS-2le)', $file)