use YAPE::Regex::Explain;
my $exp = YAPE::Regex::Explain->new($REx)->explain;