$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 = $_;
		
		#<p><a name="1"></a>&lt;1&gt;

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