#!/usr/local/bin/perl
##
use strict;
use warnings;
use Data::Dumper;
my @output = (
    qq/Software\n/
    .qq/  BIOS:      version 3.6.0\n/
    .qq/  kickstart: version 7.1(5)N1(1)\n/
    .qq/  system:    version 7.1(5)N1(1)\n/
    .qq/  kickstart image file is: bootflash:\/\/\/n5000-uk9-kickstart.7.1.5.N1.1.bin\n/
    .qq/  system image file is:    bootflash:\/\/\/n5000-uk9.7.1.5.N1.1.bin\n/
    .qq/Hardware\n/
    .qq/  cisco Nexus 5548 Chassis ("O2 32X10GE\/Modular Universal Platform Supervisor")\n/
    .qq/  Intel(R) Xeon(R) CPU         with 8253840 kB of memory.\n/
    .qq/  Processor Board ID FOC163849D1\n/
    .qq/  Device name: tpecasw01\n/
    .qq/  bootflash:    2007040 kB\n/
    .qq/Kernel uptime is 636 day(s), 1 hour(s), 34 minute(s), 49 second(s)\n/
);
print "@output\n";

foreach (@output) {
     my %details;
    if (/^Hardware/mi) {
        $details{'Chassis'}     = $1 if (/^\s*cisco Nexus (\S+) Chassis/mi);
        $details{'Main Memory'} = $1 if (/^\s*Intel.* with (\S+) kB of memory/mi);
        $details{'Name'} = $1 if (/^\s*Device name: (\S+)/mi);
        $details{'Uptime'} = $1 if (/^\s*Kernel uptime is (.*?)\s*$/mi);
        $details{'Version'} = $1 if (/^\s*system: .*version (\S+?)[,\s]/mi);
        $details{'IOS File'} = $1 if (/^\s*system image file is:\s*"(.*)"/mi); 
        $details{Serial} = $1 if (/^\s*Processor board ID (\S+)/mi);
        $details{'ROM Version'} = $1 if (/^\s*BIOS: .*version (\S+?)[,\s]/mi);  # aka BIOS
        $details{'Boot Version'} = $1 if (/^\s*kickstart: .*version (\S+?)[,\s]/mi);  # aka kickstarter
        $details{'Boot Flash'} = $1 if (/^\s*bootflash: (\S+)/mi);
    }

    print Dumper(\%details);
}