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

##</code><code>##

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