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