12345678
my $a = 3;#was auch immermy $b = 2;if ($a%$b == 0) { print "Das Ergebnis der Division von $a durch $b ergibt eine Nichtkommazahl.";} else { print "Das Ergebnis der Division von $a durch $b ergibt eine Kommazahl.";}