perl -we'use re "debug"; qr/@{[join"|","a000".."u999"]}/'