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