title: Perl split comma separated list with "and"
body: <p>Using Perl, I would like to <code>split</code> a string on the comma and the "and" (that may or may not be preceded by a comma.</p>
  
  <ol>
  <li><code>"Apple"</code> gives array <code>(Apple)</code></li>
  <li><code>"Apple and Orange"</code> gives array <code>(Apple Orange)</code></li>
  <li><code>"Apple, Orange, and Banana"</code> gives array <code>(Apple Orange Banana)</code></li>
  </ol>
  
  <p>For some reason the following split regex is not working for me:</p>
  
  <pre><code>split(/(,| and )/, $string)
  </code></pre>