#!/usr/bin/perl
use strict;
use warnings;

use Benchmark qw( cmpthese );

my $len = shift;

my @abc = 'a' .. 'z';

my @good = ('') x 100;
for(@good) { $_ .= $abc[ rand @abc ] for 1 .. $len }

my @bad = @good;
substr $_, rand( length ), 1, ' ' for @bad;

my %bench = (
	excl => sub { grep /\A\w+\z/, @good, @bad }, 
	incl => sub { grep !/\W/, @good, @bad }, 
);

print map "$_ matches: ".$bench{$_}->()."\n", keys %bench;

cmpthese -3 => \%bench;

__END__
$ perl t.pl 100
excl matches: 100
incl matches: 100
Benchmark: running excl, incl for at least 3 CPU seconds...
      excl:  3 wallclock secs ( 3.20 usr +  0.00 sys =  3.20 CPU) @ 6826.88/s (n=21846)
      incl:  3 wallclock secs ( 3.20 usr +  0.00 sys =  3.20 CPU) @ 6872.50/s (n=21992)
       Rate excl incl
excl 6827/s   --  -1%
incl 6872/s   1%   --

$ perl t.pl 1000
excl matches: 100
incl matches: 100
Benchmark: running excl, incl for at least 3 CPU seconds...
      excl:  3 wallclock secs ( 3.16 usr +  0.00 sys =  3.16 CPU) @ 1431.65/s (n=4524)
      incl:  3 wallclock secs ( 3.16 usr +  0.00 sys =  3.16 CPU) @ 1255.38/s (n=3967)
       Rate incl excl
incl 1255/s   -- -12%
excl 1432/s  14%   --

$ perl t.pl 10000
excl matches: 100
incl matches: 100
Benchmark: running excl, incl for at least 3 CPU seconds...
      excl:  4 wallclock secs ( 3.21 usr +  0.00 sys =  3.21 CPU) @ 158.26/s (n=508)
      incl:  4 wallclock secs ( 3.16 usr +  0.00 sys =  3.16 CPU) @ 135.76/s (n=429)
      Rate incl excl
incl 136/s   -- -14%
excl 158/s  17%   --

$ perl -Mre=debug -e'/\W/, /^\w+$/'
Freeing REx: `","'
Compiling REx `\W'
size 2 Got 20 bytes for offset annotations.
first at 1
   1: NALNUM(2)
   2: END(0)
stclass `NALNUM' minlen 1 
Offsets: [2]
        1[2] 3[0] 
Compiling REx `^\w+$'
size 5 Got 44 bytes for offset annotations.
first at 2
synthetic stclass `ANYOF[0-9A-Z_a-z{unicode_all}]'.
   1: BOL(2)
   2: PLUS(4)
   3:   ALNUM(0)
   4: EOL(5)
   5: END(0)
floating `'$ at 1..2147483647 (checking floating) stclass `ANYOF[0-9A-Z_a-z{unicode_all}]' anchored(BOL) minlen 1 
Offsets: [5]
        1[1] 4[2] 2[2] 5[1] 6[0] 
Freeing REx: `"\\W"'
Freeing REx: `"^\\w+$"'