Help for this page

Select Code to Download


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