My script fetches the filename and html title for all my html files. My problem is now finding all the URL's. Here is an example of URL and link in one of my web pages:

<A HREF="http://mylink/index.html/"><FONT SIZE="-1"><STRONG>LINK NAME<
+/STRONG></FONT></A>
[download]

Here is my attempt (in my subroutine) at getting the info but struggling getting the href part:

sub wanted
{
   if( $_ =~ /\.html?$/)
   {
      
       my $name = $File::Find::name;
       open ( F, $name ) or die "$!: $name\n";
           while($line = <F>)
             {
             if($line =~ /<title>(.+)<\/title>/i) && ($line =~ /<a hre
+f(.+ ##not sure here???
             {
                 $ct++;
                 print "FILE = $File::Find::name   TITLE = $1  URL = $
+2\n";
             }
             }
   close F;
   }
[download]