use strict;
use warnings;
use HTML::TokeParser::Simple;
my $page = do { local $/; };
my $parser = HTML::TokeParser::Simple->new(\$page);
my $html = '';
$parser->get_tag('body'); # skip to first body tag
while (my $token = $parser->get_token) {
last if $token->is_end_tag('body');
$html .= $token->as_is;
}
print $html;
__END__
test
headline
Content