sub func (@ $) {
	if (wantarray) {
	 	while () {
	 	$ein = <DATA>;
	 		if ($ein ne "\n") {
	 			@ein = ($ein, @ein);
	 		}
	 		else {last;}
	 	}
	 	for(@ein) {push @aus, pop @ein;}
		return @aus;
	}
	else {
		chomp ($_ = <DATA>);
		s/(\w+).*?(\w+).*?(\w+).*?(\w+)/$3 $2 $1 $4/;
		return $_;
	}
}

@wert = func;
print "\tAusgabe _1:\n", @wert;
print "\n\n";
$wert = func;
print "\tAusgabe_2:\n", $wert;
__END__
Perl
ist
spitze
und bietet
eine umfassende 
Programmiererfahrung

Cleo fliegt 2008 wieder nicht auf den Mond!