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

##</code><code>##

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

##</code><code>##

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