$string =~ s/\Q$substring\E/\"$substring\"/gi;