use strict;
use warnings;

use YAPE::Regex::Explain;

my $re = qr/(?=(\d\d\d))/;

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