#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Benchmark qw(cmpthese);

my $str = "bea" x 100;
my $re = qr/(?:be|ea|a)/;
cmpthese(-2, {
	atomic1   => sub { die if $str =~ m/(?>$re+)\d/ },
	atomic2   => sub { die if $str =~ m/(?>$re)+\d/ },
	normal    => sub { die if $str =~ m/$re+\d/ },
	posessive => sub { die if $str =~ m/$re++\d/ },
});
__END__
            Rate posessive   atomic1   atomic2    normal
posessive 93.3/s        --        0%      -96%      -97%
atomic1   93.3/s        0%        --      -96%      -97%
atomic2   2545/s     2628%     2628%        --       -8%
normal    2764/s     2862%     2862%        9%        --