Help for this page
Select Code to Download
Select
or
download this
local($from,$to,$opts) = @_;
Select
or
download this
my $tr=eval "sub { (defined \$_[0] ? \$_[0] : $_) =~tr/$from/$to/$opts}";