substr($str, index($str, "("), rindex($str, ")") - length($str)) =~ s/,/;/g;