sub R{@t=();$i=0,s/./$t[$i++].=$&/egfor@_;@t}$,="\n"; @_=R<>; for(@_){s/ //g;$x=length if$x<length} $_=sprintf"%${x}s",$_ for@_; print R@_
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page