Divisionsvereinfachung geht nicht

[pl]

Ja geht:

my $zahl = 101;
my $div = 20;

my($erg, $rest) = (0,0);
do{
    $rest = $zahl - $div;
    $zahl = $rest;
    $erg++;
} while $zahl >= $div;

printf("Ergebnis: %d, Rest: %d", $erg, $rest);

MfG