% perl -pe 'substr($_,0,index($_,":CPONKT:")+8,"")'