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

##</code><code>##

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

##</code><code>##

my @runs = $str =~ /".*?\\([^\\"]*)"[^"]*"[^A-Z]*((?:(?! size).)+)/g;