#!perl -nlaF
map{@a=$_-$#F/2?(' ')x@F:@F;@a[$_,$#F/2,$#F-$_]=($F[$_])x3;print@a}0..$#F