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


print "HEADing TAGS: $headtags\n\n\n\n"