open( FH, "+>toc1.ncx" );
$OH1 = select(FH);
open( FILE, 'b.txt' ) or die "$!";
while (<FILE>) {
	if (
m/^(ISBN Number|book title|Cover|Half|Title|Copyright|Content|Preface):(.*)/
	  )
	{
		push( @arr, $2 );
	}
}