my @headings = split /(?<=")\s*,\s*(?=")/, $line;