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

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