perl -F, -lane 'chomp @F; print join ",\t", @F[ grep(! /^(1|10|6)$/, 0..$#F)] ' blah.txt