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