in reply to delete all directories which are not in list
Hi,
Try the following Modules
To find the specific file
File::Find
To remove the whole directory
File::Remove