#!perl -p
s/(\w+)/length($1)."_$1"/eg