open(FH,"+>toc1.ncx"); $OH1 = select(FH); open (FILE,'b.txt') or die "$!"; while () { if (m/^(ISBN Number|book title|Cover|Half|Title|Copyright|Content|Preface):(.*)/) { push(@arr,$2); } } #print @arr; my $i=0; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n";#ispn no print ''."\n"; print ''."\n"; print ''."\n"; print ''."\n"; print ''."$arr[$i++]".''."\n"; print ''."\n"; print ''."$arr[$i++]".''."\n"; print ''."$arr[$i++]".''."\n"; print ''."$arr[$i++]".''."\n"; print ''."$arr[$i++]".''."\n"; print ''."\n"; print ''."\n"; close FILE; select($OH1); close(FH);