Select Code to Download

#!/usr/bin/perl

...

my $re = qr/[A-Z]*.pdf/;
print YAPE::Regex::Explain->new($re)->explain;

The regular expression:

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