Select Code to Download

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

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

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