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