Select Code to Download

use strict;
use warnings;
...
my $word       = 'PUSKUYPJUQ';

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