Use YAPE::Regex::Explain.

$ perl -MYAPE::Regex::Explain -e 'print YAPE::Regex::Explain->new(q(^\
+s*$))->explain'
The regular expression:

(?-imsx:^\s*$)

matches as follows:

NODE                     EXPLANATION
----------------------------------------------------------------------
(?-imsx:                 group, but do not capture (case-sensitive)
                         (with ^ and $ matching normally) (with . not
                         matching \n) (matching whitespace and #
                         normally):
----------------------------------------------------------------------
  ^                        the beginning of the string
----------------------------------------------------------------------
  \s*                      whitespace (\n, \r, \t, \f, and " ") (0 or
                           more times (matching the most amount
                           possible))
----------------------------------------------------------------------
  $                        before an optional \n, and the end of the
                           string
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

$ perl -MYAPE::Regex::Explain -e 'print YAPE::Regex::Explain->new(q(^\
+w{1,}@))->explain'
The regular expression:

(?-imsx:^\w{1,}@)

matches as follows:

NODE                     EXPLANATION
----------------------------------------------------------------------
(?-imsx:                 group, but do not capture (case-sensitive)
                         (with ^ and $ matching normally) (with . not
                         matching \n) (matching whitespace and #
                         normally):
----------------------------------------------------------------------
  ^                        the beginning of the string
----------------------------------------------------------------------
  \w{1,}                   word characters (a-z, A-Z, 0-9, _) (at
                           least 1 times (matching the most amount
                           possible))
----------------------------------------------------------------------
  @                        '@'
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------
[download]