1 while $formula =~ s/\(([^()]+)\)(\D|$)/$1$2/g;
1 while $formula =~ s/\(([^()]+)\)(\d)/$1x$2/e;