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