Ahh... tye just left out one thing:

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

That should work. Although I'd probably write that as:

s{ 
  \( 
  (.*?) 
  \) 
}{ 
  my $x = $1; 
  $x =~ tr/,/;/; 
  $x;
}gsex;
[download]

-- Randal L. Schwartz, Perl hacker