my $i=0;
my $line2 = join '',  grep{ $i++ % 2 ? [ s/,/ /g ] : 1 } split /"/,$line;