use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new($re)->explain;