Help for this page
Select Code to Download
Select
or
download this
$string =~ m/(A|B)(A|B)/; $match="$1$2";
Select
or
download this
$string =~ s/(A|B)(A|B)/lc("$1$2")/e;