#!perl -p
s/(\S)( \1)*/[$&]/g