Help for this page
unpack "C*",$str
@a=map chr,unpack "C*",$str;
$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s, $_^=q,$\^-]!,,print