# ex_07-1e # Learning Perl on Win32 Systems, Exercise 7.1e /(^|\s)(\S+)(\s+\2)+(\s|$)/