my @numbers= $text =~ /([-+\d.eE]+\d)/g;

##</code><code>##

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