use HTML::TokeParser::Simple;
 
my @html_docs = ( '/home/site/www/content.html' );
my $lookup = #search phrase
  foreach my $doc ( @html_docs ) {
    my $p = HTML::TokeParser::Simple->new( file => $doc );
    while ( my $token = $p->get_token ) {
      next unless $token->is_text;
      my $line = $token->as_is;
      if ($line =~ /$lookup/) {
        print qq~$line\n~;
      }
    }
  }