my @things = (

    { parse  => qr/ regex0 /sx,
      action => sub { ... }        },
      
    { parse  => qr/ regex1 /sx,
      action => sub { ... }        },
    
    ...
);

##</code><code>##

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

##</code><code>##

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