Du musst doch nur noch beim Überprüfen, ob dein File das gewünschte ist, die Abfrage mitdazunehmen, ob die Datei mit einem Punkt beginnt:
if(!($dingens =~ /^\./)){ ....code.....}
Das hindert aber File::Find nicht daran, in versteckte Verzeichnisse reinzugehen - wenn ich mich nicht irre ;-)