Please see Reverse engineering regular expressions for more on the complexities of such a task and some ideas on how to proceed.

Two modules that might help are YAPE::Regex::Explain and grinder's Regexp::Assemble.

HTH,