use strict; while () { next if 1../^CPN/; #-- Parse lines... print; } __DATA__ BOM Report ------------------- BOM : Date : 19 Sep 2001 14:57:17 Total # of CPN's (41) ----------------------- CPN Quantity MPN Vendor 51-0597-000 15 06035C103MAT2A AVX 51-0597-000 15 06035C103MAT4A AVX 51-0597-000 15 C0603C103M5RAC KEMET ELECTRONICS