s{(".*?")}{ my $s = $1; $s =~ s/,/-/g; $s }ge