# Zahl prüfen ob gültige Ganzzahl
if ($zahl1 !~ /^(0|([+-]?\d+))$/) {
  print "keine ";
}
print "Ganzzahl\n";