A step forward (for some definition of forward) could've been

local our %counts;
$string =~ /(?:^|,)([^,]*)(?:,|\z)(?{ $counts{$1}++ })(?!)/;
[download]

if one really wants to do it the regex way. ;-)

lodin