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