Select Code to Download

use constant {
  RE_TRIGGER => 0,
...
  $string =~ $_->[RE_TRIGGER] 
    && do{ $_->[CODEREF]->(); last DISPATCH; };
}