$line =~ s/\"((\"\"|[^\"])*)\"\s*(,|$ )//x;