Select Code to Download

perl -wMstrict -MYAPE::Regex::Explain -e "print YAPE::Regex::Explain->
+new(qr/( [a-zA-Z]+ (?: ' [a-zA-Z]{1,2} )? )/x)->explain;"
The regular expression:

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