Help for this page
Select Code to Download
Select
or
download this
if ($str =~ m/\Q$tr\E/) { ... };