#!/usr/bin/perl
use strict;
use warnings;
use YAPE::Regex::Explain;

my $re = qr/(%TABLE{.*?name\=\"History[^"]*"[^}]*}%\s*(\|[^\|]*){3}\|\s)((\|[^\|]*){3}\|\s)*/o;

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