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

##</code><code>##

    $ucs2 = pack 'v*', unpack 'C*', $text;