Help for this page

Select Code to Download


  1. or download this
    my $count = () = /\w+/g;
  2. or download this
    my $count = () = /\bperlmonk\b/g;
  3. or download this
    my $regex = join ('\s*', split(//, 'perlmonk'));
my $count = () = /$regex/g;