Select Code to Download

my @tmpFields = split (/\(?(\d+)\*(\w+)\)\s+/, $line);

i = 0 , Summary 51.58.214.48/dw109998bsw45 ->
i = 1 , 1
...
i = 15 ,
i = 16 , 2
i = 17 , Cisco_Memory_Pool

my @tfields = grep {!/\s+/} @tmpFields;

print "array length: " , scalar(@tfields), "\n", Dumper (@tfields);

array length: 12
$VAR1 = '1';
...
$VAR10 = '1213_Device';
$VAR11 = '2';
$VAR12 = 'Cisco_Memory_Pool';

my %hFields = @tfields;

      next if ($line !~ /^Summary/);
      
...
      my @tfields = grep {!/\s+/} @tmpFields; 

      my %hFields = @tfields;