open (DATA,"<c://xxx.txt") || die "Can't open xxx.txt: $!\n";
while(<DATA>) {
	if (/Start context/ .. /\* End Context \*/)  {
 		print unless /(Start context|\* Exit context \*)/;
 	}
}