Select Code to Download

use strict;
use warnings;
...
my $re = qr/(?=(\d\d\d))/;

print YAPE::Regex::Explain->new($re)->explain;

The regular expression:

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