Select Code to Download

use strict;

...

    print qq(After: "$contents" Before: "$str"\n);
}

After: "<form>" Before: "all this<form>"
After: "meh!<form>" Before: "meh!<form>"

use strict;
use warnings;
...
my $form = $root->look_down("_tag", "form");

print $form->as_text();

All good men