#!perl -lnaF
map{@s[-$p--,$p,(@s=($")x@F)/2]=($_)x3;print@F+1+$p*2?@s:@F}@F