s/ /_/
:
s/.\(_\w*\)/\1 &/
s/_//2
s/\( .\).\B/&\1/
t
s/\w* //