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