my( $number, $units )= $text =~ /([-+\d.eE]+\d)(.*)/;