Select Code to Download

#! perl
use strict;
...

my $re = qr/(.)+/;
print YAPE::Regex::Explain->new($re)->explain;

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

/(\d)(\d)/  # Match two digits, capturing them into $1 and $2
/(\d+)/     # Match one or more digits, capturing them all into $1
/(\d)+/     # Match a digit one or more times, capturing the last into
+ $1