perl -ane "print join(qq(\t),@F[0,1,20,21,2,10,12,14,11,4,5,6]).qq(\n)" file.txt
-a autosplit mode with -n or -p (splits $_ into @F) -n assume "while (<>) { ... }" loop around program -- http://mail.python.org/mailman/listinfo/python-list
perl -ane "print join(qq(\t),@F[0,1,20,21,2,10,12,14,11,4,5,6]).qq(\n)" file.txt
-a autosplit mode with -n or -p (splits $_ into @F) -n assume "while (<>) { ... }" loop around program -- http://mail.python.org/mailman/listinfo/python-list