Select Code to Download

opendir(DIR, $directory) or die $!;

...
               grep /^\w{3}\d*:log\.$date$/, readdir(DIR);

closedir DIR;