!RET&(!DFTRAMBYP&((TENA&! QNAPA&! CENA)|(!TENA&!TONAPA&!TCENA)) IDFTRAMBYP) &EMAA[2]&EMAA[1]&EMAA[O]&EMASA use the combination law and the distributive law to split all the bracket using perl

To split the brackets using Perl, you can use regular expressions and the substitution operator. Here's an example code snippet that should achieve what you're looking for:

#!/usr/bin/perl

use strict;
use warnings;

my $input = "!RET&(!DFTRAMBYP&((TENA&! QNAPA&! CENA)|(!TENA&!TONAPA&!TCENA)) IDFTRAMBYP) &EMAA[2]&EMAA[1]&EMAA[O]&EMASA";

# Apply the distributive law to split the innermost bracket
$input =~ s/(\([^()]+\))/$1/g while $input =~ /\([^()]+\)/;

# Apply the combination law to split remaining brackets
$input =~ s/(\([^()]*\))/$1&$1/g while $input =~ /\([^()]+\)/;

print $input;

This code first applies the distributive law to split the innermost brackets, and then applies the combination law to split the remaining brackets. The resulting string is then printed to the console.

Note that this code assumes that the input string is well-formed and does not contain any syntax errors.