use strict;
use warnings;
use YAPE::Regex::Explain;

my $REx1 = qr/^(11+)(\1)+$/;
my $REx2 = qr/^(11+){2,}$/;
my $exp1 = YAPE::Regex::Explain->new($REx1)->explain;
my $exp2 = YAPE::Regex::Explain->new($REx2)->explain;

print 'm/^(11+)(\1)+$/', "\n", $exp1, "\n";
print 'm/^(11+){2,}$/', "\n", $exp2, "\n";