perl -e'@cols =qw (field1 fieldband field3 fieldMSTCP okfield5); for (@cols) { push(@req,$_) unless /band.*|MSTCP.*/;} print join (",",@req),$/;'
__END__
field1,field3,okfield5