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