die "Invalid expression <$test>\n"
  if $test =~ /[^a-z\s\&\|\(\)]|^\s*[\&\|]|[\&\|]\s*$|[\&\|]\s*[\&\|]|[\&\|]\s*\)|\(\s*[\|\&]/;