#!/usr/bin/perl

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

my $file = <DATA>;
my $tree = HTML::TreeBuilder->new->parse_file($file);

require HTML::FormatText;

my $formatter = HTML::FormatText->format_string(
                $file,
                leftmargin => 3,
                rightmargin => 72);
print $formatter;

__DATA__
<p>The Cow Jumped<br>Over The Moon</p>