$string1 =~ s#(?=(?:\Q$string2\E)+)#<b>#g;
$string1 =~ s#(?<=(?:\Q$string2\E)+)#</b>#g;