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