Help for this page

Select Code to Download


  1. or download this
    my $re = join '\|', keys %dispatch;
if( $line =~ m/$re/ )
  2. or download this
    my $re = '(' . join( '|', keys %dispatch ) . ')';
if( $line =~ m/$re/ )
  3. or download this
    my $re = join( '|', keys %dispatch );
if( $line =~ m/($re)/ )