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