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

##</code><code>##

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