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

##</code><code>##

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