/^..._.*_ear$/s

##</code><code>##

/^..._(?:.*_)?ear$/s

##</code><code>##

"_" eq substr($_, 3, 1) and "_ear" eq substr $_, -3;