m/
  \A
  (?:
    [[:alpha:][:digit:]]
    [[:alpha:][:digit:]-]*
  )?
  \z
/x