$b ist nicht definiert und dadurch im numerischen Kontext "0". Es ist nicht erlaubt / 0 bzw. % 0 zu rechnen.

Da Du ja anscheinend auf gerade Zahlen testen willst, musst Du vorher my $b = 2; machen.

Übrigens: Lies Dir mal diesen Artikel durch.

Warum machst Du $Zahl /= 2?? $Zahl ist nicht definiert, also auch "0" und 0 / 2 ist 0. Zusätzlich verwendest Du die Variable sonst gar nicht mehr. Mit use warnings hätte Perl Dich darauf aufmerksam gemacht...