Select Code to Download

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

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

/([\w-]+)/