$term=~s/(\d+)([\*\/])(\d+)/int(eval("$1$2$3"))/eg;