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