Or even

perl -pe 's/(?<=.)(.*)(?=.)/length$1/e'
[download]