Help for this page
Select Code to Download
Select
or
download this
$string =~ s/([a-zA-Z])\1/${1}2/g;
Select
or
download this
$string =~ s/([a-z])\1/${1}2/ig;