use strict;
use warnings;
my $tlp_p2 = "(((((((NOT(tlp_p0(0) XOR tlp_add_p0(0)) AND NOT(tlp_p0(1) XOR tlp_add_p0(1))) AND  NOT(tlp_p0(2) XOR tlp_add_p0(2)))";

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 $tlp_p2 =~ /./g;