my @matches = ($string =~ /([A-Z]{3})/g;

##</code><code>##

AAA..BBB