sub evalExpr {
     local $_ = shift;
     s[(?<=[^*/+-])([*/+-])][<$1>]g;
     1 while s[([^>]+)<([*/])>([^<]+)][$2 eq '*' ? $1 * $3 : $1 / $3]e;
     1 while s[([^>]+)<([+-])>([^<]+)][$2 eq '+' ? $1 + $3 : $1 - $3]e;

     return $_;
}