my ($count) = $nachkomma =~ m!^(0*)[^0]!;
$vornull = length $count > $stellen ? $stellen : length $count;