An example of the file is something like this:

1269    /:tremblnew|AAL98468|AAL98468   344     873     6e-94   534 76
+7 166/177
        93%     172/177         96%             767     533 3 590 766
 1269   /:sptrembl|Q9F445|Q9F445        331     840     5e-90   534 72
+2 162/177
        91%     169/177         94%             722     533 3 545 721
 1269   /:tremblnew|AAK99986|AAK99986   143     357     2e-33   534 21
+3 72/165
        43%     108/165         64%             213     533 39 46 209
[download]

where the reg ex's would be something like;

 

if (defined(($array[1] =~ m{/:sptrembl\|\w+\|\w+}) || ($array[1] =~ m{
+/:tre
mblnew\|\w+\|\w+})) && ($array[8] > 95))
[download]

thanks, i appreciate your help!