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