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


##</code><code>##

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