Select Code to Download

if ( /(BA[ABC]{2})|(CA[CD]{2})|(DA[SC]{2})/ ) {
   my $first =
...

   ...
}

local our $first;

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