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