$string =~ s/ \b (.+) \b \s* \1 /$1/gx;