a,b,"hey,you",etc
a, b, "hey, you", etc

##</code><code>##

@fields = $s =~ /("[^"]*"|[^,]*),/gc;
$lastfield = $s =~ /\G(.*)/;
push @fields, $lastfield;