in reply to perl one liner print columns 2.. last
Long ago on usenet, Tom Christiansen once wrote: "If you find yourself calling cat with just one argument, you're probably doing something silly". So you should lose the cat and replace:
with (using the LanX slice idea):cat /tmp/1.out|perl -lane 'print $F[1]..$F[-1]'
or:perl -lane 'print join q{ }, @F[1..$#F]' /tmp/1.out
or even (for variety, not recommended):perl -lape '$_=join q{ }, @F[1..$#F]' /tmp/1.out
perl -lpe 's/\s*\S+\s*//' /tmp/1.out
Update: See also Re: perl one liner for csv file one field (useless use of cat and other awards References)
In Section
Seekers of Perl Wisdom