It's probably much much much much easier to start with File::Find, which can automagically search a directory recursively, and which gives you only the file name (sans path, though that can be determined as well) for each file.

However, if you have this file already, one way is to simply do a regex such as s|^.*\([^\]+)$|$1| on each line.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
It's not what you know, but knowing how to find it if you don't know that's important