use File::Find;

sub wanted {
    if( -f $_ = '*.htm* ) {
        open ( F, $_ ) or die $/, $/;
        while( defined( $line = <F> ) ) {
            if($line =~ /<TITLE>(\w+)</TITLE>/i) {
                print "FILE = $_  and TITLE = $1\n";
            } elsif( $line =~ /<title>(.*$)<title>/i) {
                print "FILE = $_  and TITLE = $1\n";
            }
        }
        close F;
    }
}

find( \&wanted, "." );