My first reaction would be to use the /x flag and break the regex into multiple lines based on a semantic units. Test each smaller unit separately (maybe saving them in a $scalar), and put them all back together again.

That, or poke around Regexp::Common and see if someone's done it for you already. Unless you're debugging Regexp::Common, that is :)