将这段文字使用perl 根据|和（）进行拆分 when :"!STOV&!RET&( (!DFTRAMBYP&( (TENA&!QNAPA&!CENA) | ( !TENA&!TQNAPA&!TCENA) ) ) | DFTRAMBYP)&!EMAA[2]&!EMAA[1]&!EMAA[0]&!EMASA"

好的，您的问题是如何使用Perl根据|和（）进行拆分 when :"!STOV&!RET&( (!DFTRAMBYP&( (TENA&!QNAPA&!CENA) | ( !TENA&!TQNAPA&!TCENA) ) ) | DFTRAMBYP)&!EMAA[2]&!EMAA[1]&!EMAA[0]&!EMASA"，是吗？下面是使用Perl进行拆分的示例代码：

my $str = 'when :"!STOV&!RET&( (!DFTRAMBYP&( (TENA&!QNAPA&!CENA) | ( !TENA&!TQNAPA&!TCENA) ) ) | DFTRAMBYP)&!EMAA[2]&!EMAA[1]&!EMAA[0]&!EMASA"';
my @arr = split /[\(|\)|\|]/, $str;
foreach (@arr) {
    print "$_\n";
}

以上代码将字符串按照|和()进行拆分，然后将拆分后的每个子字符串输出到终端。您可以根据需要对代码进行修改，例如更改正则表达式以匹配更复杂的字符串模式，或者将输出写入文件等。