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