[1610]tom@margo pm $ perl -e '$t="Appear"; $t=~s/(.)\1/$1/g; print $t,"\n"'
Apear