File::Find is a better solution for the directory-scanning part of your code, but I think your problem with unlinking is with this regex:

    if ($file eq '/\.log$/i || /\.\d+\w+\-\d+\wm$/i')
[download]

First, you can't use "eq" when you want to use a regular expression. "eq" is a string comparison operator, so what you're asking Perl to do is see if $find ever equals the (uninterpolated) string '/\.log$/i || /\.\d+\w+\-\d+\wm$/i'. Unless you're running a REALLY strange file system you don't have any files named that. ;-D

What you probably want is to change it over to a regular expression like this:

    if ($file =~ m/\.log$/i  || 
        $file =~ m/\.\d+\w+\-\d+\wm$/i)
[download]

The =~ m operator is a matching operator which means your "if" statement is now looking for a $file that either ends in ".log" or ends in some sort of (looks like) date format. This is probably closer to what you want.

Gary Blackburn
Trained Killer