Help for this page

Select Code to Download


  1. or download this
    my $bullet = sprintf qr/[%s]/, quotemeta join '', keys %bullets;
  2. or download this
    my ($bullet) = map qr/[\Q$_\E]/, join '', keys %bullets;