better
ascii
plain
grey
backwards
square
scramble
morse
index
 
ocr
potd
qotd
ascii
elgoog
 

' -e perl
@a=(Lbzjoftt,Inqbujfodf,
Wbmm" Hvcsjt); $b="Lbssz
$c y/b-z/a-z/ = ;$b ; =~
Tif " @a hsfbu ." wj" ".
."suvft pg b qsphsbnnfs"
. ":\n";$c =~y/b-y/a-z/;
";for($i=0; print"\n\n$c
$i $i++) =~ { <@a; $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";
'