my $allokay = 1;

my $idx = 0;
while($idx < 5 and $allokay) {
  $allokay &&= $line =~ /$TEXTS[$idx++]/;
}

if($allokay) {
  foreach $text (@TEXTS) {  
     $line=~ s/$text/<b>$text<\/b>/g;
  }
}