use warnings;
use strict;
use diagnostics;
use HTML::FormatText;
use HTML::TreeBuilder 5 - weak;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
close INPUT;
while (@INPUT) {
 my $input=shift(@INPUT);   
  chomp $input;
 my $content=HTML::FormatText->format_file($input, leftmargin => 0, rightmargin => 50);
 # followed by some regular expressions, the results of which are saved in a new file - all of this is commented out at the moment
}

##</code><code>##

 
use HTML::TreeBuilder 5 - weak;

##</code><code>##

 
use warnings;
use strict;
use diagnostics;
use HTML::FormatText;
use HTML::TreeBuilder 5 - weak;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
close INPUT;
while (@INPUT) {
 my $input=shift(@INPUT);   
  chomp $input;
 my $content=HTML::FormatText->format_file($input, leftmargin => 0, rightmargin => 50);
 my $sentry = Object::Destroyer->new($content, 'delete' );
 # followed by some regular expressions, the results of which are saved in a new file - all of this is commented out at the moment
}

##</code><code>##

use warnings;
use strict;
use diagnostics;
use HTML::FormatText;
use HTML::TreeBuilder; 
use Object::Destroyer;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
close INPUT;
while (@INPUT) {
 my $inputfile=shift(@INPUT);   
 chomp $inputfile;
 print $inputfile;
 my $formatter = HTML::FormatText->new();
 my $content=$formatter->format(Object::Destroyer->new(HTML::TreeBuilder->new_from_file($inputfile), 'delete'));
}

##</code><code>##

use strict;
use HTML::TreeBuilder;
use Object::Destroyer 2.0;
open INPUT, "< D:/websiteadresses.txt" or die "Problem: $!";
my @INPUT=<INPUT>;
foreach my $filename (@INPUT) {
        chomp $filename;
        print $filename;
        my $tree   = HTML::TreeBuilder->new;
        my $sentry = Object::Destroyer->new($tree, 'delete');
        $tree->parse_file($filename);
    }