$_=<>; s/(\w+)/(length$1)."_$1"/eg; print