while(<FILE>) {
    next unless /^CPN/ .. eof() and !/^CPN/;
    [munge data here]
}