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

##</code><code>##

  $test_crypt =~ tr/abcde.../zQ5Ra.../