Select Code to Download

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

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