# node 1030367
use strict;
use warnings;
my $expr = '(A&(B&C)|((C&D)|\((A EQ 1)))';

my $level  = 0;
my $tab    = "| ";
my %action = (
        '('       => sub { print "\n", $tab x ++$level, shift },
        ')'       => sub { print "\n", $tab x $level--, shift },
        'default' => sub { print shift },
        );

( $action{$_} // $action{'default'} )->($_) for $expr =~ /./g;