$newword = join '', split(/(\w+)\1/, $word);