$latin1 = pack 'C*', unpack 'v*', $unicode;