Help for this page
/^..._.*_ear$/s
/^..._(?:.*_)?ear$/s
"_" eq substr($_, 3, 1) and "_ear" eq substr $_, -3;