Sadmachine uses a normal regexp to match filenames:

if($File::Find::name !~ m/\./)
[download]

This condition is redundant. Every file by definition has a name, so every file matches the regexp.

Update: Beatnik points out below that the regexp is not a redundancy, merely a mistake. It has the effect of not including all filenames with dots in them, e.g., myfile.txt and myscript.pl.