my @line = Text::Balanced::extract_braketed($text,'{}');