(.+)<\/title>/i) && ($line =~ /<a href(.+ ##not sure here??? { $ct++; print "FILE = $File::Find::name TITLE = $1 URL = $2\n"; } } close F; }

LINK NAME ##

##

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