for(<>){s/(.)(.*)\1/$1$2/&&redo;print}