Ты имеешь в виду, как это?
^([AKQJT2-9])\1$
Это будет совпадать только если строка "AA", "KK",…
Если вы хотите захватить оба символа, но не остальную часть строки, вам придется использовать другую скобку
($match,$unused) = $string ~= (([AKQJT2-9])\2); # in perl