my @files = map untaint( $_ ), grep !/^\.\.?$/, readdir DIR;

##</code><code>##

my @files = map untaint( $_ ), grep -f "$dir/$_", readdir DIR;

##</code><code>##

/([\w-]+)/