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