use File::Find;


my @files_found = find_files(
  'C:/Program Files (x86)/Nimsoft/bin',
  [ qr/\.exe$/, qr/\.txt$/ ]
);

print "$_\n" for @files_found;


sub find_files {
  my( $start, $patterns_aref ) = @_;
  my @found;
  
  find(
    sub {
      if( -e && -f ) {
        for my $pattern ( @$patterns_aref ) {
          if( m/$pattern/ ) {
            push @found, $File::Find::name;
            last;  # Matched, so we don't need to test other rules.
          }
        }
      }
    },
    $start
  );

  return @found;
}