{
package HTML::Parser;
our $output;
sub get_result {
my ($self, $text) = @_;
$HTML::Parser::output = undef;
$self->parse( $text );
$self->eof;
return $HTML::Parser::output;
}
}
my $p = HTML::Parser->new( api_version => 3 );
$p->handler( text => sub { $HTML::Parser::output .= $_[0] }, 'text' );
my $header = 'Der Titel';
my $body = 'Jetzt fängt der Body an';
print $p->get_result($header), "\n", $p->get_result($body), "\n";