#!/usr/bin/perl --

use strict;
use warnings;

use YAPE::HTML 1.11;

while(<DATA>){ # adds missing closing tags
    print YAPE::HTML->new($_)->display,"\n";
}
__DATA__
<a href="www.google.txt>Click here<span>


##</code><code>##

<a href="www.google.tx">Click here<span>
</span></a>