$regex = genregex(
  OR(
    [digits,alpha],
    [alpha,digits]
  )
);
# $regex is now qr/\d[a-zA-Z]|[a-zA-Z]\d/