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