Select Code to Download

The regular expression:

...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

use warnings;
use strict;
...

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

my $REx = 
    qr/
...
              )+                   
          )                        
      /gsx;