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

my $data = do { local $/; <DATA> };

my $tree = HTML::TreeBuilder->new_from_content($data);
my $pre_tag = $tree->look_down("_tag", "pre");
print $pre_tag->as_text(), "\n";