Select Code to Download

my $content = ....;
my %counts;
...
$counts{ $_ }++ 
    for $content =~ m[logo_([^_]+)_20x10\.gif]g;
print "$_ : $counts{ $_ }\n" for keys %counts;