Select Code to Download

# Strict
use strict;
...
} else {
     print "Unable to find tag '$tag'\n";
}

print "TFD> content $content\n";

my $tree = HTML::TreeBuilder->new_from_content($content);

my $tag = 'a';
my $match = $tree->find($tag);

    print "   As text:  ", $match->as_text, "\n";
    print "   As text:  ", $match->as_HTML, "\n"