if ( $tmp_val =~ m:^[0-9.()*/+-]+$: ) {