sub validate
  {
  local $_ = shift;

  length >= 20              ? 1 :
    !/[a-z]/ || !/[A-Z]/    ? 0 :
    length >= 16            ? 1 :
    !/\d/                   ? 0 :
    length >= 12            ? 1 :
    !/[^_\w]/               ? 0 :
    length >= 8             ? 1 :
    0;
  }