#!perl -p
s/.*\Ki.{12}(\w*).+? e*f*..../\1/&&redo