You can shorten that to:

s#(\([^)]+\))#{$_=$1;s/;/,/g;$_}#eg
[download]

(not a huge difference, but I've had no coffee today...)
update:Fixed to add g modifier to end (see turnstep's post below)