use warnings;
use strict;

while (<DATA>) {
    my @cols  = unpack 'A5A28A19A*', $_;
    if ($cols[0] =~ /^[\d\s]+$/) { # ignore header rows
        $cols[0] =~ s/\s//g;
        print "SLOT = $cols[0]\n";
        print "Desc = $cols[1]\n";
        print "Model = $cols[2]\n";
    }
}

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