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

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