Help for this page

Select Code to Download

Select or download this
```
tr/abcd/1234/;
```

Select or download this

my %tr = (
  a => 1,
...
my $tr_keys = join('\E|\Q', keys %tr);

s/(\Q$tr_keys\E)/$tr{$1}/g;