#!perl

my @lens;
while (<DATA>) {
    /\S/ || next;

    my $pos   = tell(DATA);
    my $nline = <DATA>;
    if ($nline =~ /-/ && $nline =~ /^[-\s]+$/) {
        @lens = map { length() + 1 } split(' ', $nline);
        next;
    }
    else {
        seek DATA, $pos, 0;
    }

    my @values = map { s{^\s+}{}; $_ } unpack(join('', map { "A${_}" } @lens), $_);
    if (@lens == 5) {
        print "================= IF 1 =================\n";
        print "SLOT: $values[0]\n";
        print "PORTAS: $values[1]\n";
        print "DESC: $values[2]\n";
        print "Model: $values[3]\n";
        print "Sw: $values[4]\n";
        print "\n";
    }
    elsif (@lens == 6) {
        print "================= ELSIF =================\n";
        print "<> Slot: $values[0]\n";
        print "<> Desc: $values[1]\n";
        print "<> Model: $values[2]\n";
        print "<> Sw: $values[3]\n";
        print "<> Hw: $values[4]\n";
        print "<> Status: $values[5]\n";
        print "\n";
    }

}
close(DATA);

__DATA__
Mod Ports Card Type                              Model              Serial No.
--- ----- -------------------------------------- ------------------ -----------
  1   24  CEF720 24 port 1000mb SFP              WS-X6724-SFP       SAL1434RA09
  3   20  7600 ES+T                              76-ES+T-20G        JAE14530455
  5    2  Route Switch Processor 720 (Active)    RSP720-3CXL-GE     JAE14330N9B
  6    2  Route Switch Processor 720 (Hot)       RSP720-3CXL-GE     JAE14330NA6
  7    4  CEF720 4 port 10-Gigabit Ethernet      WS-X6704-10GE      SAL1433QVJQ
  8    4  CEF720 4 port 10-Gigabit Ethernet      WS-X6704-10GE      SAL1433QVJW

Mod  Sub-Module                  Model              Serial       Hw     Status
---- --------------------------- ------------------ ----------- ------- -------
  1  Distributed Forwarding Card WS-F6700-DFC3CXL   SAL1434RLPY  1.6    Ok
  3  7600 ES+ DFC XL             7600-ES+3CXL       JAE14520N29  1.2    Ok
  3  7600 ES+T 20x1GE SFP        76-ES+T-20GQ       JAE145301XM  1.1    Ok
  5  Policy Feature Card 3       7600-PFC3CXL       JAE14330E6J  1.1    Ok
  5  C7600 MSFC4 Daughterboard   7600-MSFC4         JAE14320QBE  1.6    Ok
  6  Policy Feature Card 3       7600-PFC3CXL       JAE14330EAO  1.1    Ok
  6  C7600 MSFC4 Daughterboard   7600-MSFC4         JAE14320QA8  1.6    Ok
  7  Distributed Forwarding Card WS-F6700-DFC3CXL   SAL1433QHBR  1.6    Ok
  8  Distributed Forwarding Card WS-F6700-DFC3CXL   SAL1433QXF9  1.6    Ok