# ex_07-1e
# Learning Perl on Win32 Systems, Exercise 7.1e

/(^|\s)(\S+)(\s+\2)+(\s|$)/