my $runs = $str =~ /([A-Z]+)/g;