Select Code to Download

use strict;
my $s = "abcdefghijklmnopqrstuvwxyz";
...
eval"\$s=~tr/$t//cd";
$s eq$t;
}

sub x{
eval"\$_[0]=~tr/$_[1]//cd";$_[0]eq$_[1];
}