$_ = @elem[0];
s/\D//g;
$erg = $_;