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