Select Code to Download

my @things = (

...
    
    ...
);

qr{ (?| regex0 (*MARK:0)
      | regex1 (*MARK:1)
      | regex2 (*MARK:2)
      | ...              ) }sx

$things[$main::REGMARK]{action}->();