Ich würde nicht auf $_ überprüfen, sondern auf $File::Find::name. In $_ steht ja nur der Dateiname (ohne den Pfad).

Und ja, ich würde das move auf Fehler überprüfen...