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