title: Parse list of e-mails using perl one-liner
body: <p>I'm trying to automate one thing and currenty met the following issue.</p>
  
  <p>I have a list of e-mails in such format:</p>
  
  <pre><code>John Doe &lt;John.Doe@example.com&gt;; Bill Gates &lt;Bill.Gates@example.com&gt;; Alfred Pennyworth &lt;Alfred.Pennyworth@example.com&gt;; (etc.)
  </code></pre>
  
  <p>I need to parse this and provide as list of recipients to <code>mailx</code> separated by commas. This code not giving desired output.</p>
  
  <pre><code>perl -wne'while(/[\w\.\-]+@[\w\.\-]+\w+/g){print "$&amp;,"}' $MAIL_LIST
  </code></pre>
  
  <p>It appends comma after the last parsed e-mail (eg. "<strong>Alfred.Pennyworth@example.com,</strong>") while I need commas only between them.</p>