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