in reply to Remove repeated characters from a string
$w='Appear'; $w =~ s/(\w)\1/$1/g; print $w; __END__ Apear [download]
Update: There is a more sophisticated approach described in remove repeating characters from strings.