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