$foo =~ /,\"(.+)\"/;
$bar = $1;
...do some stuff....
$foo =~ s/,\".+\"/,\"$bar\"/;