Re^2: Skip a row of csv file.

If the data is indeed CSV, and not pipe-separated, most monks would use a CSV parser and write

while (my $row = $csv->getline ($fh)) {
    $row->[0] eq "A.SERIAL_NUMBER||" and next;
    :
[download]

Giving the OP's code, I seriously doubt however that it is a CSV file.

If the file is a pipe-separated-value file, that can also be read with Text::CSV or Text::CSV_XS.

Enjoy, Have FUN! H.Merijn