$str =~ s/\*/&&/g;
$str =~ s/\+/||/g;
# $str =~ s/'/!/g;
$str =~ s/(\w+)'/!$1/g;
$str =~ s/\(([^\)]+)\)'/!($1)/g;
$str =~ s/\w+/1/g;
my $truth = eval $str;