local($from,$to,$opts) = @_;


##</code><code>##

my $tr=eval "sub { (defined \$_[0] ? \$_[0] : $_)
                               =~tr/$from/$to/$opts}";