Select Code to Download

sub regex {
        my $cnt=0;
        for (@words) {
...
        }
        return $cnt;
}

In 4096 words, 16 are 'abcb'
        Rate uccmp regex
uccmp 1192/s    --   -5%
...
        Rate regex uccmp
regex  970/s    --  -23%
uccmp 1260/s   30%    --

use strict;
use warnings;
use Benchmark qw(:all);
...
        }
        return $cnt;
}

In 4096 words, 16 are 'abcb'
        Rate uccmp regex
uccmp  812/s    --  -32%
...
       Rate uccmp regex
uccmp 856/s    --  -11%
regex 964/s   13%    --

use strict;
use warnings;
use Benchmark qw(:all);
...
        }
        return $cnt;
}

In 4096 words, 16 are 'abcb'
       Rate uccmp regex
uccmp 200/s    --  -74%
...
       Rate uccmp regex
uccmp 206/s    --  -66%
regex 603/s  193%    --