perl -ane "print join(qq(\t), at 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