#from Anonymous Monk code
> my %allowed = qw{ ( ( ) ) ! !! & &&  };
> my $finalExpr = map { $allowed{$_} || die "not allowed '$_'" } split '', $expr;