Help for this page
Select Code to Download
Select
or
download this
$lala =~ s/([a-z])\K\1//g;
Select
or
download this
use Regexp::Keep; $lala =~ s/([a-z])\K\1//g;