$replace_on =~ s/\Q$str//;