sub validatetr {
  local $_ = shift;
  length >= 20              ? 1 :
    !tr/a-z// || !tr/A-Z//  ? 0 :
    length >= 16            ? 1 :
    !tr/0-9//               ? 0 :
    length >= 12            ? 1 :
    !tr/a-zA-Z0-9//c        ? 0 :
    length >= 8             ? 1 :
    0;
  }