this seems to work for me:

Code

$regsubex($1-,/(^|\s+)(\S+)(($|\s+)\2)+/Sgi,$null)