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