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