#!perl -nlaF
$e=@F-1;map{@l=map$",@F;$l[$i]=$l[$#F/2]=$l[$e--]=$_;print$i++==$#F/2?@F:@l}@F