Select Code to Download

shell> perl -na -F\s+ -e "BEGIN{@S=(2,5)} print join(qq:\t:, @F[@S]), 
+qq:\n:" infile>outfile

shell> perl -na -F\s+ -e "print join(qq:\t:, @F[1,2]), qq:\n:" infile>
+outfile