#! perl
use strict;
use warnings;
use YAPE::Regex::Explain;

print YAPE::Regex::Explain->new
(
    qr{ \b ( (\d+) \s \S+ ) (.*?) \s \2 \s (\S+) }x

)->explain();