%HTML::Entity::char2entity = (); # Bye bye. open my $fh, ">", "out.html" or die $!; print $fh "" . join("\n", map { $_->as_HTML } ($tit, $sub, $aut, $art) ) . "";