my ($count) = $nachkomma =~ m!^(0*)[^0]!;
$count = '' if !defined $count;
my $vornull = length $count;
$vornull -- if substr ($nachkomma,0,$stellen) eq '0' x $stellen;