# You need to match a double quoted string with the following regex
# [^"\\]*(\\.[^"\\]*)*",?
#
# But to get the text between double quotes use some ( )
# ([^"\\]*(\\.[^"\\]*)*)",?
# gets text inside quotes as $1
#
# but you also have non quoted fields, thus
# ([^,]+),?
# which should match things optionally followed by a comma
#
# and then a match for separation commas
# ,
#
# this must be repeated with m/.../g

##</code><code>##

@fields = ();
while ($text =~ m/"([^"\\]*(\\.[^"\\]*)*)",?|([^,]+),?|,/g {
push (@fields, defined ($1) ? $1 : $3) ;
}
push (@fields, undef) if $text =~ m/,$/; # Account for the special case of an empty last field.

# all data is now in @fields