my @fields = map { s/^"(.*)"\z/$1/; $_ }
                 split /(?<=")\s*,\s*(?=")/, $string;