in reply to regex help, please

Alternate approach: 

perl -ne 'print unless /^CD_TEXT {/ .. /^}/' tocfile

[download]

In Section Seekers of Perl Wisdom