Help for this page

Select Code to Download

Select or download this

my $tr_pat = quotemeta($tr);
if ($str =~ /$tr_pat/) {

Select or download this
```
if ($str =~ /\Q$tr\E/) {
```
Select or download this
```
if ($str =~ /\Q$tr) {
```