in reply to Regex of array

perlretut, Regex::PreSuf 
use Regex::PreSuf;
my $re = presuf(@SearchTexts);
s!(\b$re\b)!<b>$1</b>!ig;

[download]

In Section Seekers of Perl Wisdom