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