if ( $tmp_val =~ /^[\d\*\/\+\-\(\).]+$/ && substr($tmp_val,0,1) ne '(') {