in reply to TIMTOWTDI effect

Just because I still don't have -p comitted to memory, and the -n solution was done ;)
perl -e"print /:CPONKT:(.*)/ while <>" foo > bar
or if we're golfing ;)
perl -e"print /:CPONKT:(.*)/ for <>" foo > bar

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