Warum verwendest du $_ anstatt File::Find::name? Die können sich nämlich unterscheiden, je nach Attribut bei File::Find siehe wanted. Sowas übersiehst du irgendwann mal.