$line =~ s/"//g;
my @fields = split /,/, $line;