$lala =~ s/([a-z])\K\1//g;

##</code><code>##

use Regexp::Keep;
$lala =~ s/([a-z])\K\1//g;