Help for this page
$name = "(\.dll|\.exe)\$";
my $name = qr/\.(?:dll|exe)$/;
find sub { push @files, $_ if /\.(?:dll|exe)$/ }, @dirs;