$_=<>;s/ / | /g;$b=$a=$_.=' |';$a=~s/\S./| /g;s/\S\S/_|/g;y/|/|_/c;print$",_ x length,"
| $a
| $b
|_$_"