-e prel '
@a=(LfbIdnujfotjqozb,tf,
Hscvjt); $b="Lsbsz Wbmm"
= ;$b y/b-z/a-z/ =~ $c ;
@a wj" Tif ". ." " hfbsu
."svuft pg b qsnhbpfnss"
=~y/b-y/a-z/; ":\n";$c .
print"\n\n$c ";for($i=0;
$i { $+i+) $$ai[] =~ <@a;
y/b-y/a-z/;if($ie[$]qa$a
$i$[a]." [-1]){prnit"and
pinrt"$[a]$i, ;}seel{ ";
}iprn}t"\n\t\t--$b\n\n";
'