use strict;
use warnings;
use HTML::TreeBuilder;

my $htmlFrag = ("<div><form>All good men</form></div>");
my $root = HTML::TreeBuilder->new_from_content($htmlFrag)->elementify();
my $form = $root->look_down("_tag", "form");

print $form->as_text();