open (IN, "c:/work/XML_Count/14.xml") || die "Cannot open 14.xml";
	 
	 while (<IN>){
	 chomp;
	 my @t=split(/mapping id="/,$_);
	 print $#tt;
	 }
	 
close IN;