my @fields = $s =~ /("[^"]*"|[^,]*)(?:,|$)/g;