>>54
(?: ) で後方参照されなくなるので、こうするとか。

%a = $a =~/(?:([a-z])\d)(?:[a-z](\d))/g;