#!/usr/bin/perl -w

use strict;

open FILE, "SAPPDAY.00063.new" or die "Ack! Can't open: $!\n";

while(<FILE>) {
        if(/^(?:16|88)/) {
                s/\s+\r\n$/\r\n/g;
                print;       
        }
}

close FILE;
[download]

Get a book.

update
d'oh! see Fastolfe's post.

[ar0n]