open IN, '<:encoding(ucs2le)', $file