$string =~ m/(A|B)(A|B)/;
$match="$1$2";

##</code><code>##

 $string =~ s/(A|B)(A|B)/lc("$1$2")/e;