Sometimes regex isn't the answer to all problems. I see a better solution using straightforward perl to get around the problem of how regex's work. (Mind you, there might be a regex solution, but here, I know this works ;-)

my @array = split //, $string;
my @newarray;
my $c = shift @array;
while ( @array ) {
    my $d = shift @array;
    push @newarray, $c;
    if ( $c eq $d ) {
       push @newarray, 'x';
    }
    $c = $d;
}
push @newarray, $c;
$string = join '', @newarray;  #update
[download]

----------------------------------------------------- Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain