#!perl -p
s/(\S)\S* ? ?/$1/g