The HTML::TokeParser::Simple documentation states that the ->is_start_tag method should be called on the token, not on the parser object:

if ( $token->is_start_tag( qr/^h[123456]$/ ) ) { ... }
[download]

So your code should be using $tkn where it uses $htm5.

Thanks!

It executes without error now but it doesn't find any heading tags. I kept all other $htm5 as the same after I changed all instances to $tkn and having it error out again.

use warnings;
use strict;
use LWP::Simple;
my $url = "my $url = "http://www.w3schools.com/html/html_primary.asp";
+"; # this has lots of <h#> tags

my $src = get($url);

my $headtags = '';

use HTML::TokeParser::Simple;
my $htm5 = HTML::TokeParser::Simple->new(\$src);
while ( my $tkn = $htm5->get_token )
{
  if ($tkn->is_start_tag( qr/^h[123456]$/ )) 
  {
       next if (!$htm5->get_text);
       $headtags= $headtags . " " . $htm5->get_text;
  }
}
print "HEAD TAGS: $headtags\n\n\n\n"
[download]

Thanks.

Your first call to get_text (when you check if it has a value) is eating the text, then the next call doesn't get the value. You probably want something more along the lines of:

    my $text = $htm5->get_text;
    if ($text) {
        $headtags .= " $text";
    }
[download]