$workDir = ".";

opendir WORK,$workDir;
map 
{ 
	if (/\.htm/)
	{
		open (IN, "<$_") ||die "unable to open file $_";
		#print ;
		open OUT, ">parsered\\$_";
		while (<IN>)
		{

		
		#if( /\<p\>\<a name\=\"[a-zA-Z]/g) {print;};

			
		$l = $_;
		


		$l =~ s/\&lt\;(\d+)\&gt\;/<p>\<a name=\"$1\"\>\<\/a\>\&lt\;$1\&gt\;/g;



		#$l =~ s/\<p\>\<a name\=\"([a-zA-z]+)(\d+)/\<p\>\<a name\=\"$2/g;
		#if( /\<p\>\<a name\=\"\[a-zA-Z]+/g) {	print $l;}
		print  OUT $l;
		}	
		close IN;
		close OUT;
	}
} sort readdir WORK;