On the same note! One could make a similar module to generate a regex based on function calls:

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

Holy expletives deleted, Batman! This looks like the dreaded OmniMark!

$_="goto+F.print+chop;\n=yhpaj";F1:eval