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