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

##</code><code>##

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