Perl

#!/usr/bin/perl -w

@a=(Lbzjoftt,Inqbujfodf,
Hvcsjt); $b=»Lbssz Wbmm«
;$b =~ y/b-z/a-z/ ; $c =
» Tif «. @a .» hsfbu wj«
.»suvft pg b qsphsbnnfs«
. »:\n«;$c =~y/b-y/a-z/;
print»\n\n$c «;for($i=0;
$i<@a; $i++) { $a[$i] =~
y/b-y/a-z/;if($a[$i]eq$a
[-1]){print»and $a[$i].«
;}else{ print»$a[$i], «;
}}print»\n\t\t--$b\n\n«;




# Ja, der Code funktioniert!