while ($text=~m/(( \{+) .*? (??{ '\}' x length $2 }))/xg)
{
    $text=~s/\Q$1\E/ /;
}