You have this problem (the nested parenthesis problem I mean) solved the way you did in perlre. And just below it:

See also (?PARNO) for a different, more efficient way to accomplish the same task.

So it's probably a good idea to look there. I don't think I could give all the reasons why this would be more effective, but going from a compiled regex to perl code and back surely doesn't help.