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