Select Code to Download

 
use warnings;
use strict;
...
 my $content=HTML::FormatText->format_file($input, leftmargin => 0, ri
+ghtmargin => 50);
 # followed by some regular expressions, the results of which are save
+d in a new file - all of this is commented out at the moment
}

 
use HTML::TreeBuilder 5 - weak;

 
use warnings;
use strict;
...
 my $sentry = Object::Destroyer->new($content, 'delete' );
 # followed by some regular expressions, the results of which are save
+d in a new file - all of this is commented out at the moment
}

use warnings;
use strict;
...
 my $formatter = HTML::FormatText->new();
 my $content=$formatter->format(Object::Destroyer->new(HTML::TreeBuild
+er->new_from_file($inputfile), 'delete'));
}

use strict;
use HTML::TreeBuilder;
...
        my $sentry = Object::Destroyer->new($tree, 'delete');
        $tree->parse_file($filename);
    }