use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new('[^\w\s]+')->explain();

##</code><code>##

[^\w\s]+                 any character except: word characters (a-
                         z, A-Z, 0-9, _), whitespace (\n, \r, \t,
                         \f, and " ") (1 or more times (matching
                         the most amount possible))