Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my $re = qr/(%TABLE{.*?name\=\"History[^"]*"[^}]*}%\s*(\|[^\|]*){3}\|\
+s)((\|[^\|]*){3}\|\s)*/o;

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

The regular expression:

(?-imsx:(%TABLE{.*?name="History[^"]*"[^}]*}%\s*(\|[^\|]*){3}\|\s)((\|
+[^\|]*){3}\|\s)*)
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------