unpack "C*",$str

##</code><code>##

@a=map chr,unpack "C*",$str;

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print