$string =~ s/^(.*\(.*);(.*\).*)$/$1,$2/;

##</code><code>##

($a,$b,$c) = split(/[()]/,$string);
$b =~ s/;/,/g;
$string = $a."(".$b.")".$c;