#!perl -nlaF map{@a=$_-$#F/2?(' ')x@F:@F;@a[$_,$#F/2,$#F-$_]=($F[$_])x3;print@a}0..$#F
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page