title: Perl regular expressions for finding the number of parameters of a given function
body: <p>Consider this line of text:</p>
  <pre><code>UINT8 function(UINT16 *num1, UINT32 num2)
  </code></pre>
  <p>How can I print the number of parameters for the above function using a Perl script?</p>
  <p>Example:</p>
  <p>The above function has two parameters. So, I need it to be printed as 2.</p>