vec($f[$=],$%,8)=ord,($d+=/ /)&1?$=+=2-$d%4:++$%for<>=~/./g;y/\x00/ /&&print$_,$/for@f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page