Select Code to Download

my $x ='((A & B)\' | (A & C & (A & B & D | (A & (B\' & D)\')\'))';

(!(A & B) | (A & C & (A & B & D | !(A & !(!B & D))))

#!/usr/bin/perl
use strict;
...

print "NewVl : ",$x,"\n";