or download this
Q:\>perl -MYAPE::Regex::Explain -we "print for YAPE::Regex::Explain->n
+ew(shift)->explain;" "\s\r\n\t"
The regular expression:
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------