#!perl -nlaF\x0d $e=@F-1;map{@l=map$",@F;$l[$i]=$l[$#F/2]=$l[$e--]=$_;print$i++==$#F/2?@F:@l}@F
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page