s/([a-z])\1/$1/ig) {

##</code><code>##

#!perl -p
s/.\cH//g;