Help for this page
$_ = '((transcription AND factor)NOT(control OR regulat) AND (TATA OR +TBP) NOT (BLOOD AND marrow))'; ... /xg; print join "\n", @caps;
(control OR regulat) (BLOOD AND marrow)