#!perl -p0
s#.*(\pL)((\W*\w\W*){0,9})\K\1#map/\w/g,$2#es&&redo