I think in encode(), the statement

$scrambled =~ tr/[a-z]/[w,t,5,s,c,....,7,a]/;
[download]

won't do what you expect it to do.

Anno