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