perl script to expand folders?

System

Looking for a script that loops through all folders assigned to a workflow, adds all foldered files to the workflow, and then cleans itself up by removing the original folders from the workflow. Is it out there?