$name = "(\.dll|\.exe)\$";

##</code><code>##

my $name = qr/\.(?:dll|exe)$/;

##</code><code>##

find sub { push @files, $_ if /\.(?:dll|exe)$/ }, @dirs;