1 while $str =~ s/\(([^()]+)\)/evaluate($1)/e;