$elem =~ s/[^\d+-e.]//g;

##</code><code>##

use Number::Format;
$elem = unformat_number($elem);

##</code><code>##

for (@se) { $_ = $unformat_number($_) }