$_=<>;s/ / | /g;$b=$a=$_.=' |';$a=~s/\S./| /g;s/\S\S/_|/g;y/|/|_/c;print$",_ x length," | $a | $b |_$_"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page