Select Code to Download

my $clauses = join "|", map {quotemeta} @SearchTexts;
s{\b($clauses)\b}{<b>$1</b>}ig;