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