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