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>";
   }
}

##</code><code>##

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>";
   }
}