$latin1 = pack 'C*', unpack 'U*', $utf8;