$bytes = pack 'C0a*', $utf8; $utf8 = pack 'U0a*', $bytes;