Select Code to Download

my @dispatch_table = (
  {
...
    action => sub { push @{shift->{items}}, \@_ },
  },
);

foreach my $h (@dispatch_table) {
  if (my @m = $line =~ $h->{re}) {
...
    next LINE;
  }
}