How about:

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

For an extreme case of TMTOWTDI check out numerous ways the paris mongers have found to write $A++

-Blake