Help for this page

Select Code to Download


  1. or download this
    my $search = join "|", map { qr-\b\Q$_\E\b- } keys %repl;
  2. or download this
    use Regexp::List;
my $search = Regexp::List->new->list2re(keys %repl);