Here is a another way to get them:

my @patches = grep {/xxx|yyy/} </data/*/*.IND*>;
# Above gives the full path to the patches
# If you just want the filename, not the full path, use this:
#my  @patches = map { (split /\//)[-1] } grep {/xxx|yyy/} </data/*/*.I
+ND*>;
[download]

Perl grep filters a list down to those elements which leave its first argument true. The diamond operator with glob argument takes care of the file finding.

After Compline,
Zaxo