use warnings;
use strict;

my $string = <<END;
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
END

## include *all* characters between markers
if ( $string =~ m|(CD_TEXT[\W\w]+)Track|){

	print "\'$1\' Matched!\n";
}
else {
	print "\'$string\' did not match...\n";
}
__END__
'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}
  }
}

// ' Matched!