perl "Das Ergebnis für $eingabe ist eine ",
  ( $eingabe % $teiler == 0 ) ? 'ganze ' : '',
  "Zahl.\n";