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