#!/usr/bin/env perl

use strict;
use warnings;

use YAPE::Regex::Explain;

my $re = qr{Name:\s+([[:alpha:] ]+?)\s+Age:\s+(\d+)};

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