my $regex = join('|',@TEXTS);
  next unless($line =~ $regex);
  foreach $text (@TEXTS) {  
     $line=~ s/$text/<b>$text<\/b>/g;
  }