$string = ...
$x = pack('U0C*', unpack('U0C*', $string));

##</code><code>##

$x = $string      #or without even $string, just $x = ...