Someone with little or no experience with Perl is going to find it impossible to maintain your code as you have it above. Even we are having a hard time with it.

use File::Find;
use strict;

my $start_from = 'c:\mydocu~1';

if (shift(@ARGV) =~ /all/) {
   find(\&search_all, $start_from);
} else {
   find(\&search_none, $start_from);
}

sub search_all {
   unlink if /\.\d+\w+\-\d+\wm$|\.log$/i;
}

sub search_none {
   unlink if /\.\d+\w+\-\d+\wm$/i;
}
[download]

Note that I'm not having it print "No files to delete". If you want that feature you'll have to set a flag or something when you delete something, and check for that flag when your script exits. As you're doing it in your code, you'll get a "No files to delete" message for every file that does not match your regexp criteria, which is probably not what you want.