use strict; use warnings; use HTML::TreeBuilder; my $t = HTML::TreeBuilder->new(); $t->parse(q~ eltit rock me ~); $t->eof; die $t->find_by_tag_name('body')->as_HTML; __END__ rock me