# cnt=`wc -l filename | sed -e 's/ *\([0-9]\+\).*/\1/'`
# perl -ni -e 'print if /^CPN/ .. '$cnt';' filename