Select Code to Download

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

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

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