Just because I still don't have -p comitted to memory, and the -n solution was done ;)

perl -e"print /:CPONKT:(.*)/ while <>"  foo > bar
[download]

or if we're golfing ;)

perl -e"print /:CPONKT:(.*)/ for <>"  foo > bar
[download]

____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.