title: Perl: regex to cut the words enclosed in parenthesis
body: <p>I have an array @WIALOG_lines, with below entries</p>
  <pre><code>(0552) -*--@  &quot;&lt;No comment&gt;&quot; 27-Oct-2020 10:40 AM
  (0553) M---$ user1 100900 &quot;Random job
  (0554) ----@  1119996 &quot;patch content&quot;
  (0562) -*--@  &quot;&lt;No comment&gt;&quot; 24-Oct-2020 10:40 AM
  </code></pre>
  <p>I need to have 0552,0553,0554 and 0562 in this array. I am trying out the below command and is not working. Can you help with regex to get the values enclosed in parenthesis only.</p>
  <pre><code> s/(^[^\(]+&quot;)|(&quot;[^\)]+)//g for @WIALOG_lines;
  </code></pre>