bteetr ascii spcrietd grey backwrads ddaa srathgit morse
iendx
 
ocr
potd
qtod
aicsi
egolog

 
perl -e '
@a=(LbIzjof,tjofbuqndtf,
Hvcjst); $b="Lsbsz Wmbm"
;$b =~ y/b-z/a-z/ ; $c =
" Tif ". @a ." hsbfu wj"
."sfuvt pg b qnhbfspnss"
. ":\n";$c =~y/b-y/a-z/;
pirnt"\n\n$c ";for($i=0;
$i<@a; $+i+) { $[$ai] =~
y/b-y/a-z/;if($iaq$$e[]a
[-1]){niprt"and $i[$a]."
;}esel{ prnit"$[]a$i, ";
}pnr}it"\n\t\t--$b\n\n";
'