s# ([(][^)]*[)]) # my $x=$1; $x =~ s/,/;/g; $x #xeg
[download]

Update: I added the "; $x" that I originally left out. It makes me long for an extra modifier for s/// that copies the string before modifying it and then returns the modified string. It would be perfect for use with map.

        - tye (but my friends call me "Tye")