cat /tmp/1.out|perl -lane 'print $F[1]..$F[-1]' #### perl -lane 'print join q{ }, @F[1..$#F]' /tmp/1.out #### perl -lape '$_=join q{ }, @F[1..$#F]' /tmp/1.out #### perl -lpe 's/\s*\S+\s*//' /tmp/1.out