$perl_utf8 = pack 'U0a*', $raw_utf8;