my $tr = "/a-z/n-za-m/"; my $trs = eval qq{sub {\$_[0]=~tr$tr}}; 
$s = "uryyb, jbeyq\n"; &$trs($s); print $s;