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