[Schaf]

Nun noch Perl:

#!/usr/bin/perl -w

print "Geben Sie das gewünschte Tier ein! /n";
chomp ($tier = <STDIN>);

while ($tier = 'Thunfisch'){
$opfer = 'der Wal';
$tätigkeit = 'schwimmt';
$ort = 'tief im Meer';
$ziel = 'durch die Gegend';
$tätigkeit_2 = 'poppt';
$thun = (substr($tier, 0, 3));
$fisch = (substr($tier, 4));
$wal = (substr($opfer, 4));

print "Wir befinden uns $ort. Munter $tätigkeit $opfer $ziel. /n";
print "Ploetzlich kommt ein $tier und $tätigkeit_2 $opfer von hinten! /n";
print "Meint $opfer:/"Das darfst du nicht $thun, $fisch!/" /n";
print "Sagt der $tier:/"Du hast keine $wal, $fisch!/" /n";

print "Nochmal? (j/n) /n";
chomp ($eingabe = <STDIN>);

if ($eingabe eq 'j'){
next;
}
else{
exit;
}
}