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