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