perl -MYAPE::Regex::Explain -E 'say YAPE::Regex::Explain->new("(\d{4})+\.htm")->explain();'