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