laut text willst du an jede datei ein .HID anhängen...
der code enthält allerdings eine bedinung, dass .HID das dateinamenende sein soll ...

was willst du nu genau?

regexp sind sehr schnell. die frage ist, ob du überhaupt perl dafür brauchst. so rein aus dem gedächtnis:

Quote

$ find . -type r -exec mv {} {}.HID \;
$ find . -name '*.HID' -exec my_shell_script {} \;

vorsicht: das stimmt noch nicht ganz! ich hab kein unix zum experimentieren hier (lies: bin zu faul).