1 my $sting = "this is my sting with \ and /slashes. put substing in quotes";
2 my $substring = "with \ and /slashes";

3 $substing =~ s/\\/\\\\/g;
4 $string =~ s/$substring/\"$substring\"/gi;
5 $string =~ s/\\\\/\\/g;