$y="\xc0\x88Vc\xc5VA\xd8[\xe3t\x9d\x02\x11\xf9\x09"; print unpack("B8",$x)." "while($x=chop($y));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page