my ($count) = $nachkomma =~ m!^(0*)[^0]!;