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