while($formula =~ s/\(([^\(]*?)\)/calc($1)/eg){
}