Select Code to Download

use strict;
use warnings;
...
    delete $elt->{size} if exists $elt->{size} and $elt->{size}    eq 
+'1';
    return !grep { /^[^_]/ } keys %$elt;
}

      <p><font color="#0000ff">paragraph</font></p>
      <p align="center">
         <br /><a href="#"><font color="#0000ff">&euro; 750aa</font> <
+b><i>foo</i></b> </a><br />
      </p>

<font color="#0000ff">
<p>paragraph</p>
...

</a><br />
</p>