$_ = "AAA_BBB ZZZZ-DDD_EEE/FFF.";
のような文字列中からアルファベット三文字のリストを抜き出そうとしています。
my(@list) = $_ =~ /(?:^|[^A-Z])([A-Z]{3})[^A-Z]/g;
foreach (@list) {
　　print "$_\n";
}
にしてみたのですが抜き出されるのは
AAA,DDD,FFFの３つでAAA_のマッチのあとのBBBとDDD_のあとのEEEがとれません＞＜