foreach my $h (@dispatch_table) {
  if (my @m = $line =~ $h->{re}) {
    $h->{action}->($r, @m);
    # or $h->{action}->($r, @m, $h->{args});
    next LINE;
  }
}