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