foreach my $elem (@array){
   $searchTitle=$array[0];
   if ($searchTitle=~/(?=.*pr\w{4}m)(?=(?=\w*w\w*)(?=\w*b\w*)\w+\b)/){
      print "<td>";
      print "$elem\n";
      print "<td>";
   }
}