Select Code to Download

foreach my $elem (@array){
   $searchTitle=$array[0];
...
      print "<td>";
   }
}

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