perl -e'@cols =qw (need1 dont1 need2 dont2 need3); for (@cols) { push(@req,$_) unless /dont.*/;} print join (",",@req),$/;'
__END__
need1,need2,need3