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