/usr/src/perl/pod/perlfaq4/How_do_I_remove_consecutive_pair.pod

How do I remove consecutive pairs of characters?

To turn ``abbcccd'' into ``abccd'':

    s/(.)\1/$1/g;