perl -lane "print qq{@F[0,2..$#F-2,$#F]}" input