#!perl -p
s|\w|($x=$&.$x)=~/^.(.{0,9}?)$&/?length$1:$&|eg