use re 'debug';
qr(^\d{3}[-,.][A-V][a-z]{3}\d{2});

##</code><code>##

Final program:                                     
   1: SBOL /^/ (2)
   2: CURLY{3,3} (5)
   4:   POSIXU[\d] (0) 
   5: ANYOFR[,\-.] (7)
   7: ANYOFR[A-V] (9)
   9: CURLY{3,3} (12)                 
  11:   POSIXA[:lower:] (0)
  12: CURLY{2,2} (15)
  14:   POSIXU[\d] (0)                            
  15: END (0)