Sorry,
ich habe versucht das if( $a % $b == 0 ) was du geschrieben hast mit einzubauen, aber jetzt kommt die Fehlermeldung:
Illegal modulus zero at 20535_2.pl line 7

Der ganze Text sieht jetzt so aus:

1 #!/usr/bin/perl
2
3 print "Geben Sie eine Zahl ein","";
4
5 $Zahl /= 2;
6
7 if( $a % $b == 0 )
8 {
9 print"Das Ergebnis der Division von " + a + " durch 2
10 ergibt eine Nichtkommazahl.";
11 } else {
12 print "Das Ergebnis der Division von " + a + " durch 2
13 ergibt eine Kommazahl."; }

irgendwie habe ich wohl echt ein Brett vor dem Kopf - tut mir leid. :-((