perl行多次匹配内容的存储问题

2357565

用perl 正则匹配如下行 ：
  .A(a), .B(b), .C(c), .D(d);
.A1(a1), .B1(b1);
要匹配到大写的A B C D等，
我的写法 ：  /\.(\w+)\(/
这样$1存储的是每行的第一个匹配，但是后面的如何匹配，以及怎么存储和使用；
注意，每行的大写字母个数不一定一样。
谢谢 ~~

badstd

/^[^A-Z]*?([A-Z]+)/