2;130 juerd@ouranos:~/modje/Blah/Acme/Tie/Handle/Blah/Acme-Tie-Handle-Blah--0.10$ perl -MBenchmark=cmpthese -e'$_="fooooo"; cmpthese(-1, {re => sub {$a = !/^\.\.?\z/}, ne => sub { $a = ($_ ne "." and $_ ne ".."); }})'
Benchmark: running ne, re, each for at least 1 CPU seconds...
        ne:  1 wallclock secs ( 1.02 usr + -0.01 sys =  1.01 CPU) @ 1218808.91/s (n=1230997)
        re:  1 wallclock secs ( 1.09 usr +  0.00 sys =  1.09 CPU) @ 1803743.12/s (n=1966080)
        Rate   ne   re
ne 1218809/s   -- -32%
re 1803743/s  48%   --