$/=0;$q=32;$/=4,$q+=11,$r=$_,$_=$x|=<>,eval"\$/-=s/^(\\s*)#(.{$q}) /\$1 \$2#/s;"x4while$/<1;print' 'x($r=~s/ #{10}//g).$r
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page