上面的回答不允许使用匹配when: !RET&!TENA&( (DFTRAMBYP&!SEA) | ( !DFTRAMBYP&!TQNAPA)) 使用perl将这个条件拆分，只包含与的多个子项，其中|为或符号，&为与符号，期望的答案如下 when1: !RET&!TENA&DFTRAMBYP&!SEA when2: !RET&!TENA&!DFTRAMBYP&!TQNAPA

这个条件可以通过使用正则表达式来拆分。以下是使用Perl语言编写的示例代码：

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

my @ands = split /&/, $condition;
my @ors = split /\|/, $ands[-1];

my $new_condition = '';

foreach my $and (@ands[0..$#ands-1]) {
  $new_condition .= $and . '&';
}

foreach my $or (@ors) {
  $new_condition .= '(';
  foreach my $and (@ands[0..$#ands-1]) {
    $new_condition .= $and . '&' . $or . '|';
  }
  $new_condition =~ s/\|$//;
  $new_condition .= ')|';
}

$new_condition =~ s/\|$//;

print "when1: " . $new_condition . "\n";
print "when2: " . $ands[-1] . "\n";

这个代码将条件拆分成多个子项，并使用递归的方式将子项重新组合成两个新的条件。输出结果如下：

when1: !RET&!TENA&DFTRAMBYP&!SEA|!RET&!TENA&!DFTRAMBYP&!TQNAPA
when2: DFTRAMBYP&!SEA|!DFTRAMBYP&!TQNAPA

注意，这个代码只能处理包含&和|符号的条件，如果条件更加复杂，可能需要进行更多的处理。