#!perl -apF $\.="$F[$_-2] $F[-$_]".$"x(/-/*@F-2)for 2-@F..chop;$\.=reverse