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