Select Code to Download

#my $bool_func = "((S0'*B)|((!S0)|A))'";
my $bool_func = "(a'+b'+c')";
...
    my $result = eval $perl_expr & 1;
print join(",    ", map { "$val{$_}" }keys %val),"  =$result\n";
}

equivalent expression: (~a|~b|~c)
c,      b,      a,      out
...
1,      1,      0       = 1
1,      0,      1       = 1
1,      1,      1       = 0