s/("[^"]*")/ my $s= $1; $s =~ s-,--g; $s /ge;