s/(\w)(\1)/$1/g; [download]
In reply to RE: Re: removing duplicate letters by Ovid in thread removing duplicate letters by eduardo