$/=0;$q=32;$/=4,$q+=11,$r=$_,$_=$x|=<>,eval"\$/-=s/^(\\s*)#(.{$q}) /\$1 \$2#/s;"x4while$/<1;print'          
'x($r=~s/
#{10}//g).$r