#!/usr/bin/perl

use strict;
use warnings;

use Text::Markdown 'markdown';
use HTML::TreeBuilder;

my @a = <DATA>;

my $html;
$html = markdown("@a");
print "=========\n", $html;

my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
my ($b) = $tree->look_down( '_tag', 'body' );
my @body = $b->content_list;    # Kindknoten

print "=========\n";
print $_->as_XML for @body;

$tree->delete;                  # clear memory!

__DATA__
# Test

<a href="a">

<?asd>

</?>

<cde>

   <script>

<http://as>

<ftp://www.test.de>

<http://example.org>

_Das_ ist das *lalala* [_t_](/)!

**Das ist <strong>**

<a>

    // Test für Code
    int test;
    int teta (int z) {
      return z*2;
    }

=========
<h1>Test</h1>

<p><a href="a"></p>

 <?asd>

 </?>

<p><cde></p>

<pre><code>&lt;script&gt;
</code></pre>

<p><a href="http://as">http://as</a></p>

<p><a href="ftp://www.test.de">ftp://www.test.de</a></p>

<p><a href="http://example.org">http://example.org</a></p>

<p><em>Das</em> ist das <em>lalala</em> <a href="/"><em>t</em></a>!</p>

<p><strong>Das ist <strong></strong></p>

<p><a></p>

<pre><code> // Test f³r Code
 int test;
 int teta (int z) {
   return z*2;
 }
</code></pre>
=========
<h1>Test</h1>
<p><a href="a"></a></p>
<p></p>
<pre><code>&lt;script&gt;
</code></pre>
<p><a href="http://as">http://as</a></p>
<p><a href="ftp://www.test.de">ftp://www.test.de</a></p>
<p><a href="http://example.org">http://example.org</a></p>
<p><em>Das</em> ist das <em>lalala</em> <a href="/"><em>t</em></a>!</p>
<p><strong>Das ist <strong></strong></strong></p>
<p><a></a></p>
<pre><code> // Test f³r Code
 int test;
 int teta (int z) {
   return z*2;
 }
</code></pre>