local our $first;

/
   (?: BA[ABC]{2} (?{ $first = 1; })
   |   CA[CD]{2}  (?{ $first = 2; })
   |   DA[SC]{2}  (?{ $first = 3; })
/x;