Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
Found: 3
GT
J
CF
```