#!/usr/local/bin/perl -w

use strict;

{
   while (<DATA>)
   {
      if (!/Clock|Switch|Power|Processor/)
      {
         print "Doing stuff with $_";
      }
   }
}

__DATA__
SLOT 0 (RP/LC 0 ): Route Processor
SLOT 2 (RP/LC 2 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 3 (RP/LC 3 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 4 (RP/LC 4 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 7 (RP/LC 7 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 16 (CSC 0   ): Clock Scheduler Card(8)
SLOT 17 (CSC 1   ): Clock Scheduler Card(8)
SLOT 18 (SFC 0   ): Switch Fabric Card(8)
SLOT 19 (SFC 1   ): Switch Fabric Card(8)
SLOT 20 (SFC 2   ): Switch Fabric Card(8)
SLOT 24 (PS A1   ): DC Power Supply(8)
SLOT 26 (PS B1   ): DC Power Supply(8)
[download]

---

[jcw@linux fs]$ perl q.pl
SLOT 2 (RP/LC 2 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 3 (RP/LC 3 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 4 (RP/LC 4 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
SLOT 7 (RP/LC 7 ): 1 Port Packet Over SONET OC-12c/STM-4c Single Mode
[jcw@linux fs]$
[download]

--Chris

e-mail jcwren