my @foo = qw/AAAAAA Aaaa Aaaa AAA/;
s/(([A-Z])\2+)/lc $1/ge
  for @foo;

print "@foo\n"; # aaaaaa Aaaa Aaaa aaa