or download this
use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(
qr/ \n ( .* procdump .*) \n /mx
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------