$x = "i have a chinko.";
$a = "chinko";
$b = "manko";
eval "\$x =~ tr/$a/$b/;";

print $x;

結果：
n aave a mankoo.