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