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

##</code><code>##

if ($str =~ /\Q$tr\E/) {

##</code><code>##

if ($str =~ /\Q$tr) {