use Regexp::Common

##</code><code>##

$term=~s/(\d+)@($RE{balanced}{-parens=>'[]'})/rpt($1,$2)/eg;

##</code><code>##

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

##</code><code>##

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