my $regex1 = qr/ \[  [^]]+ \] /x;
my $regex2 = qr/abc/i;

my $imba_regex = qr/ $regex1 $regex2 /x;

=head3 _regex_unmittelbareDominanz( $satz, $dominierendesSymbol, $dominiertesSymbol )

Diese Funktion  überprüft, ob im gegebenen Satz ($satz)
ein Symbol ($dominierendesSymbol) ein anderes Symbol ($dominiertesSymbol)
unmittelbar dominiert.

=cut

sub _regex_unmittelbareDominanz($$$) {
    my ($s, $x1, $x2) = @_;
    
    our $pat;
    $pat = qr!
        (?:
            \[
            (?>
                (?>[^\[\]]+)
                |
                (??{$pat})
            )*
            \](?:\,\s)*
        )
    !x;
    
    say "suche mit $x1, $x2 in $s";
    
    if( $s =~ /\[$x1\,\s?($pat)*\[\[?[\'\,\w\s]*$x2/ ) {
        say "gefunden";
        return 1;
    }else{
        say "nix da!";
        return 0;
    }
    
} # /_regex_unmittelbareDominanz

[['S',[['CNP',[['NP',['NN Leben']],['KON und'],['NP',['NN Tod']]]],['VAFIN waren'],['NP',[['CARD zwei'],['NN Seiten'],['NP',[['PDAT derselben'],['NN Sache']]]]]]]]

token ident { \w \d+ };
token keyword { f123 };

rule verkettet { <ident> <keyword> }
rule oder { <ident> | <keword> }
rule und  { <ident> & <keyword> }