$string2 = qr/$string2/; $string1 =~ s/$string2//g;