use strict;
use warnings;
use File::Find;

# Extensions to match
my @exts=qw(.nsf .exe); 
my $search_root='D:\\Bin\\'; # where to start the search

# Build a regex
my $rexstr=join'|',map {quotemeta $_} @exts; 
my $rex=qr/(?:$rexstr)$/i;

# list of filespecs
my @list;
# Find em thanks
find({ wanted =>sub{push @list,$_ if (/$rex/ && -f)} , no_chdir => 1 }, $search_root);
# And print em out
print join "\n",@list;