title: How can I extract text between tags using HTML::Parser?
body: <p>I need to do some parse some data off webpages. How do I extract text between tags using HTML::Parser?</p>
  
  <p>Consider the following sample code:</p>
  
  <pre><code>#!/usr/bin/perl
  
  use strict;
  use warnings;
  
  use HTML::Parser;
  use Data::Dumper;
  
  my $find_title = HTML::Parser-&gt;new(
      api_version =&gt; 3,
      start_h =&gt; [ 
          sub {
               my ($tag, $attr) = @_;
               print Dumper \@_;
              }, 
          'tag'
                 ],
    );
  
  my $html = join '',
      "&lt;html&gt;&lt;head&gt;&lt;title&gt;Extract me!&lt;/title&gt;&lt;/head&gt;&lt;body&gt;",
      (map { qq(&lt;a href="http://$_.com"&gt;$_&lt;/a&gt;) } qw/foo bar baz/),
      "&lt;/body&gt;&lt;/html&gt;";
  
  $find_title-&gt;report_tags('title');
  $find_title-&gt;parse($html);
  </code></pre>
  
  <p>How do I fix this so I can extract the title? This only extracts the tag.</p>