in reply to Succint Perl version of Awk

Just print the bits you want:
    perl -F -e 'print join(" ",@F[3..$#F])' sample.csv

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom