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