use YAPE::Regex::Explain;

sub Regexp::explain {
    print YAPE::Regex::Explain->new(shift)->explain;
}

qr/^.*?Foo(Bar){3,7}\d+/->explain;