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