I would start with the extract_bracketed function from Text::Balanced to grab the bits in the braces. Then you can treat the pieces you get from that individually.

Phil