I assume this code is an exercise of your regexp muscles (no doubt a worthy thing to do), because we already have Text::Balanced