my $wert=shift;
    return undef if !defined $wert || $wert=~/[^\d]/;
    $wert=~s/^0//g while $wert=~/^0/;