[Schaf]

schade an dem Sa feiert mein größter bester ältester liebster Kumpel Geburtstag... da kann ich hier net weg

na ja, irgendwann bekommst du den witz shcon erzählt... oder doch die Videokamera

[Flyingmatt]

schade an dem Sa feiert mein größter bester ältester liebster Kumpel Geburtstag... da kann ich hier net weg

Alternative

[Schaf]

Ich will nicht dass dieser Fred verschwindet ->

Warum haisd de Thunfisch Thunfisch?

Mir sin dief dronne im Meer. Do schwimmd de Wal logga vor sich no ... un wie dea vor sich noschwimmd - blubbeldiblubb - do kommt uff oimol en Thunfisch un biegld den Wal von hinne richdig dorch.
do sagd de Wal: "HEAR des ko'sch doch net tun, Fisch!"
un de Thunfisch moind: " Du hasch ga koi annare Wal, Fisch!"

[Miniholic]

Alternative

der ist auch schon verplant ... aber es findet sich sicherleich noch ein Termin

[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;
}
}