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;

}		 

n ----#
		
		while(<HTML>)
		{
			chomp; # Get Rid Of "\n", Tags May Spans Multiple Lines
			$html = "$html" . "$_";
		}

		#---- Get Title Of The Page ----#

		if($html =~ /.*?<\s*title\s*>\s*"?(.*)"?\s*<\s*\/title\s*>.* /i)
		{
			$title = $1;
		}else
		{
			$title = $next;	#Tilte Not Specified, Use File Name
		}
		$c = 0;	
		if($count>0)
		{
			print OUT "$str|--<a href = $curdir/$next>$title</a> ($next)\n";
		}
		else	# Last FIle 
		{
			print OUT "$str`--<a href = $curdir/$next>$title</a> ($next)\n";
		}
		
		#---- Get Anchor Tags Of The Page ----#

	 	while ($html =~ /.*?<\s*a\s+name\s*=\s*"?(.*?)"?\s*>\s*(.*?)\s*<\s*\/a\s*>.*?/ig)
		{
			$c += 1;
			($tag,@ignore) = get_anchor_tag ($2);	
			$link = $1;
			$tag = $link if($tag =~ /^\s*$/);
			if($count>0)
			{
			print OUT "$str|\t`--<a href = $curdir/$next#$link>$tag</a>\n";				
			}
			else
			{
			print OUT "$str\t`--<a href = $curdir/$next#$link>$tag</a>\n";				
			}
		}		 
	}
	else #Everything else - Other Files 
	{
		if($count>0)
		{	
			print OUT "$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