Over print by jonathan camacho

while(<>){chomp;for$i(0..(length($p)-1)){$_.=" "if$i>=length;substr($_,$i,1)=substr$p,$i,1 if substr($_,$i,1)eq" "}$p=$_;print$_."\n"}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page