eval "\$test_crypt =~ tr/$key/$word/";