ents : String Between <A></A> Tag 	    			 ----#

sub get_anchor_tag ($)
{
	my $anchor = shift;
	my $tag = undef;
	my $img_tag = undef;
	my $temp = undef;

	#---- Check whether There Is Any <IMG> Tag In String ----#	

	if ($anchor =~ /(.*?)<\s*img(.*?)>(.*?)<\s*\/img\s*>(.*?)/i)
	{

		#---- Featch "SOURCE" And "ALT" From It ----#

		$img_tag = $2;
		if($img_tag =~ /(.*?)alt\s*=\s*\"(.*?)\"\s*(.*?)/i)
		{
			$tag = $2; # Assign "ALT value" As TAG
		}elsif($img_tag =~ /(.*?)src\s*=\s*\"(.*?)\"\s*(.*?)/i)
		{
			$tag = $2; # Assign "SRC value" As TAG	
		}
	}

	while ( $anchor =~ /\s*<\s*(.+?)\s*(.*?)\s*>\s*(.*)\s*<\s*\/\1\s*>\s*/i )
	{	
		$anchor = $3;
	}

#---- If There Is Any Title Return It Else Return Tag ----#

return $anchor unless($anchor =~ /^\s*$/);
return $tag;

}		 

 "$str|--$next\n";
		}
		else 	#Last File
		{	
			print OUT "$str`--$next\n";
		}
		$file_count += 1; 
	}	
}

return $dir_count, $file_count;	

}

#---- Subroutine : get_anchor_tag - Function To Find Title-tag For Anchor----#
#---- Arguem