Hello and good morning to your all.
I would like to thank your all for your help with this problem.
A special thank you to Kanji for his example of pre and post in File::Find
It was more then helpful.
Likewise thanks for taking the time to submit your own version of my shabby code.
Hopefully I can return the favour someday.
Regards,
Gareth