##
Title = Index Home
Title = Home Page
Title = Next Page
####
use File::Find;
sub wanted
{
if( $_ =~ /\.html?$/)
{
my $name = $File::Find::name;
open ( F, $name ) or die "$!: $name\n";
while($line = )
{
if($line =~ /(.+)<\/title>/i)
{
print "Title = $1\n";
}
}
close F;
}
}
find( \&wanted, "/unixpath/webfiles" );