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