for ($i = 1; $i <= 4; $i++) {		# for-Schleife
   print "$i.Text: ";
   $Text = <STDIN>;			# Text-Eingabe 
   $Satz .= $Text;			# Verkettung der Zeichen
}
$Satz_gedreht = reverse $Satz;		# mit reverse umdrehen
print "$Satz_gedreht\n";		# Ausgabe