use warnings;
use strict;

my $data = <<'DATA';
Summary 51.58.214.48/dw109998bsw45 -> (1*Cisco_Power_Supply) (1*Cisco_CPU_Unit) (7*IETF_IF) (1*Cisco_Fan_Unit) (1*1213_Device) (2*Cisco_Memory_Pool) Summary 51.58.220.21/dw108432bsw25 -> (6*Cisco_Power_Supply) (1*Cisco_CPU_Unit) (333*IETF_IF) (6*Cisco_Fan_Unit) (1*1213_Device) (2*Cisco_Memory_Pool)DATA
DATA

my %totals;

$totals{$_->[1]} += $_->[0] for map {[split '\*']} $data =~ /\(([^)]*)\)/g;

print "$_: $totals{$_}\n" for sort keys %totals;

##</code><code>##

1213_Device: 2
Cisco_CPU_Unit: 2
Cisco_Fan_Unit: 7
Cisco_Memory_Pool: 4
Cisco_Power_Supply: 7
IETF_IF: 340