or download this
use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(qr/\bCA\b/)->explain;
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------