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

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