my ($var1, $var2); if ($Info =~ /show running-config/) { $var1 = $1, next if (/(interface port-channel \d+)$/); $var2->{$var1}->{$1} = $2 if (m|(description to CCC\d+/\d+)\s+\[(\w+)\]|); print "::$1\n"; }