#!/usr/bin/perl
$regex = '(?:\([^\)]*\)|"[^"]*")(*SKIP)(*F)|\s*,\s*';
$subject = '(Date, Notional), "Date, Notional", "(Date, Notional)"';
@splits = split($regex, $subject); print "\n*** Splits ***\n"; foreach(@splits) { print "$_\n"; }
IyEvdXNyL2Jpbi9wZXJsCiRyZWdleCA9ICcoPzpcKFteXCldKlwpfCJbXiJdKiIpKCpTS0lQKSgqRil8XHMqLFxzKic7CiRzdWJqZWN0ID0gJyhEYXRlLCBOb3Rpb25hbCksICJEYXRlLCBOb3Rpb25hbCIsICIoRGF0ZSwgTm90aW9uYWwpIic7CkBzcGxpdHMgPSBzcGxpdCgkcmVnZXgsICRzdWJqZWN0KTsKcHJpbnQgIlxuKioqIFNwbGl0cyAqKipcbiI7CmZvcmVhY2goQHNwbGl0cykgeyBwcmludCAiJF9cbiI7IH0gCg==