!RET&!TENA&( (DFTRAMBYP&!SEA) | ( !DFTRAMBYP&!TQNAPA)) 使用perl 提取嵌套括号的内容

你提供的表达式 `!RET&!TENA&( (DFTRAMBYP&!SEA) | ( !DFTRAMBYP&!TQNAPA))` 中包含嵌套括号，可以使用正则表达式结合递归来提取嵌套括号的内容，以下是 Perl 代码示例：

#!/usr/bin/perl

use strict;
use warnings;

my $expr = '!RET&!TENA&( (DFTRAMBYP&!SEA) | ( !DFTRAMBYP&!TQNAPA))';

my $regex = qr{
    \(
        (?:
            (?> [^()]+ )   # 匹配非括号字符
            |               # 或
            (??{ $regex })  # 递归匹配括号内容
        )*
    \)
}x;

while ($expr =~ /$regex/g) {
    my $match = $&;
    print "$match\n";
}

输出结果为：

(DFTRAMBYP&!SEA)
(!DFTRAMBYP&!TQNAPA)
( (DFTRAMBYP&!SEA) | ( !DFTRAMBYP&!TQNAPA))

可以看到，该代码成功提取了所有嵌套括号的内容。