my %allowed = qw{ ( ( ) ) ! !! & &&  };
my $finalExpr = map { $allowed{$_} || die "not allowed '$_'" } split '', $expr;
my $result = eval $finalExpr;