my $re = join '\|', keys %dispatch;
if ( $line =~ m/$re/ )