use strict;
use warnings;

open(WIKI, "<", "F:/wiki/enwiki-20130102-pages-articles.xml");
open(INDEX, "+<", "F:/wiki/wiki.index");

my $entry;
my $title;

while(<WIKI>){

	if( (index $_,"<title>") > -1 ){
		$title = $_;
		$title =~ s/.*?<title>//;
		$title =~ s/<\/title>.*?//;
		
		$entry = $title . "::" . $. . "\n";
		syswrite INDEX, $entry;
		
		print "line ", $. , " : $title  done\n";
	}
	
}

close(INDEX);
close(WIKI);