title: Perl-compatible regular expressions to match upper case ",", space and "(" ")"
body: <p>I am trying to remove the <code>SQL</code> statements from a <code>QString</code>. All the <code>SQL</code> instructions are upper case. I want to have only the column names which are all lowercase with underscore as space in their names. As a sample the <code>QString</code> might contain: </p>
  
  <pre><code>CREATE TABLE IF NOT EXISTS activated_alerts(id INTEGER PRIMARY KEY AUTOINCREMENT, date_and_time TEXT, system_state TEXT, alarm_no_185 BOOL NOT NULL, alarm_no_4 BOOL NOT NULL, alarm_no_5 BOOL NOT NULL, alarm_no_2 BOOL NOT NULL, alarm_no_102 BOOL NOT NULL, alarm_no_7 BOOL NOT NULL, alarm_no_27 BOOL NOT NULL, alarm_no_120 BOOL NOT NULL, alarm_no_103 BOOL NOT NULL, alarm_no_190 BOOL NOT NULL, alarm_no_30 BOOL NOT NULL, alarm_no_31 BOOL NOT NULL, alarm_no_32 BOOL NOT NULL, alarm_no_33 BOOL NOT NULL, alarm_no_34 BOOL NOT NULL, alarm_no_35 BOOL NOT NULL)
  </code></pre>
  
  <p>I tried <code>^[A-Z]+$</code> but I'm getting zero matches.</p>
  
  <pre><code>QRegularExpression re("^[A-Z]+$");
  QRegularExpressionMatch match = re.match(m_activatedAlertsSQLStatement);
  if(match.hasMatch()) 
  {
      qDebug() &lt;&lt;  "CAPTURED: " &lt;&lt; match.capturedTexts();
  }
  </code></pre>