m/$find(?(?{not(pos()<=length($_)*.5)})(?!))/