$ perl -le '
> $str = q{adasdGTsaJsdfsCFwee};
> $capsCt = @caps = $str =~ m{([A-Z]+)};
> print qq{Found: $capsCt};
> print for @caps;'

##</code><code>##

Found: 3
GT
J
CF