or download this
perl -MYAPE::Regex::Explain -e "printYAPE::Regex::Explain->new( qr/(?!
+)/ )->explain();"
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------