use YAPE::Regex::Explain;
say YAPE::Regex::Explain->new( qr{/(\d.*?)/i} )->explain;