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