my $term = qr/"[^"]*(?>""[^"]*)*"|[^,"]*/;