in reply to Remove repeated characters from a string

this works, I don't know if there are things known that stand against a usage... 

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

[download]

regards,
tomte

An intellectual is someone whose mind watches itself.
-- Albert Camus

In Section Seekers of Perl Wisdom