> perl -MFile::Find -le "sub wanted {return unless /\.html?$/; my $f = $_; open(FH, '<'.$f); $/=undef; return unless <FH> =~ /<title>([^<]*)<\/title>/i; print $1.' -- in: '.$File::Find::dir.$_;}; find(\&wanted, '.')"