Not tested While (<file>){ my @record = split /\|/; next unless ($record[6]); # go to next line if all 7 fields are not populated ..... }
Unless I am misunderstanding what you are trying to do that should work. I don't get why you would want to skip the first and second lines though. However if they are not records the code above will have them skipped. -----Original Message----- From: LoneWolf [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 10, 2003 5:04 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: CUt first and last line from a file (DATA) GARNOR|09/10/03 GARNOR|141023|BUDDY|Y54321|[EMAIL PROTECTED]|Y|Y GARNOR|141033|BUDD|Y5432|[EMAIL PROTECTED]|Y|Y GARNOR|141043|BUD|Y5432|[EMAIL PROTECTED]|Y|Y GARNOR|141053|BU|Y54|[EMAIL PROTECTED]|Y|Y -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]