if ($str =~ m/\Q$tr\E/) {
...
};