perl -MYAPE::Regex::Explain -E 'say YAPE::Regex::Explain->new(q/@{[s".."."gr]}\K$"/)->explain'