Как я могу извлечь строку между соответствующими фигурными скобками в Perl?

Мой входной файл, как показано ниже:

HEADER 
{ABC|*|DEF {GHI 0 1 0} {{Points {}}}}

{ABC|*|DEF {GHI 0 2 0} {{Points {}}}}

{ABC|*|XYZ:abc:def {GHI 0 22 0} {{Points {{F1 1.1} {F2 1.2} {F3 1.3} {F4 1.4}}}}}

{ABC|*|XYZ:ghi:jkl {JKL 0 372 0} {{Points {}}}}

{ABC|*|XYZ:mno:pqr {GHI 0 34 0} {{Points {}}}}

{
    ABC|*|XYZ:abc:pqr {GHI 0 68 0}
        {{Points {{F1 11.11} {F2 12.10} {F3 14.11} {F4 16.23}}}}
        }
TRAILER

Я хочу извлечь файл в массив, как показано ниже:

$array[0] = "{ABC|*|DEF {GHI 0 1 0} {{Points {}}}}"

$array[1] = "{ABC|*|DEF {GHI 0 2 0} {{Points {}}}}"

$array[2] = "{ABC|*|XYZ:abc:def {GHI 0 22 0} {{Points {{F1 1.1} {F2 1.2} {F3 1.3} {F4 1.4}}}}}"

..
..

$array[5] = "{
    ABC|*|XYZ:abc:pqr {GHI 0 68 0}
        {{Points {{F1 11.11} {F2 12.10} {F3 14.11} {F4 16.23}}}}
        }"

Это означает, что мне нужно сопоставить первую открывающую фигурную скобку с закрывающей фигурной скобкой и извлечь строку между ними.

Я проверил ссылку ниже, но это не относится к моему вопросу.Regex, чтобы получить строку между фигурными скобками "{Я хочу, что между фигурными скобками}"

Я пытаюсь, но действительно помогу, если кто-то может помочь мне с их опытом ...

Спасибо, Шри ...

Ответы на вопрос(7)

Ваш ответ на вопрос