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