#!/usr/bin/perl -w
use strict;

my $line;

while ($line = <DATA>)
{
   skip_record() if $line =~ m/^\s*CD_TEXT/;
   print $line;
}
sub skip_record
{
  while ($line = (<DATA>), $line !~ m|^\s*//\s*Track|){};
}

#prints: 
#  CD_DA
#
#  // Track 1


__DATA__
CD_DA

CD_TEXT {
  LANGUAGE_MAP {
    0: 9
  }
  LANGUAGE 0 {
    TITLE "Multi-01"
    PERFORMER ""
    SIZE_INFO { 1,  1, 19,  0,  3,  2,  0,  0,  0,  0,  0,  0,
                0,  0,  0,  0,  0,  0,  0,  3,  7,  0,  0,  0,
                0,  0,  0,  0,  9,  0,  0,  0,  0,  0,  0,  0}
  }
}

// Track 1