# ungetestet
length $vorkomma > 0 and $vorkomma =~ s/^0+//;