2009-12-11T14:46:55 renee

Code (perl): (dl )

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

Das crasht bei $nachkomma = '' und $nachkomma = '0'.
Und ein
$count = '' if !defined $count;
führt leider dazu, dass bei $nachkomma = '0' auch '' statt '0' rauskommt.