use Scalar::Util;
    my $wert=shift;
    return undef unless(defined($wert));
    return undef unless(Scalar::Util::looks_like_number($wert));
    #$wert=sprintf('%u',$wert);
    $wert=~s/\D.*$//gs;
    $wert=~s/^0+//s;