use strict;
use warnings;
use diagnostics;
use HTML::TreeBuilder;
use HTML::Entities;
use HTML::Element;

sub traverse ;

foreach my $file_name (@ARGV) {
  my $tree = HTML::TreeBuilder->new ; 
  $tree->parse_file($file_name);
  $tree->dump ;
  print "\n\nWhere would you like to put the output file? " ;
  my $output = <STDIN> ;
  open OUTPUT_FILE, "> $output" or die $! ;
  select OUTPUT_FILE ;
  traverse ($tree);
  $tree = $tree->delete ;
  close OUTPUT_FILE or die $!;
}

sub traverse {
  foreach (@_) {
    if ($_) {
      if (ref $_) {
        print STDERR $_->tag(), "\n\n" ;
        if ($_->tag() ne "head"
        && $_->tag() ne "script"
        && $_->tag() ne "img"
        && $_->tag() ne "object"
        && $_->tag() ne "applet")
        {
            my @contents = $_->content_list() ;
            print STDERR "before: @contents\n";
            traverse (@contents) ;
            print STDERR "after: @contents\n";

        }
        if (!$_->parent)
        {
          my $s = $_->as_HTML ("",{}) ;
          $s =~ s/></>\n</g ;
          print $s ;
        }
      }
      else {            
        print STDERR "Processing a string element...\n" ;
        $_ =~ s/\s&\s/ &amp; /g ;
        $_ =~ s/</&lt;/g ;
        $_ =~ s/>/&gt;/g ;
        $_ =~ s/'em\s/&rsquo;em /g ;
        $_ =~ s/'tis\s/&rsquo;tis /g ;
        $_ =~ s/'twas\s/&rsquo;twas /g ;
        $_ =~ s/'Twas\s/&rsquo;Twas /g ;
        $_ =~ s/'Tis\s/&rsquo;Tis / ;
        $_ =~ s/'\s/&rsquo; /g ;
        $_ =~ s/^'/&lsquo;/g ;
        $_ =~ s/(\s)'/$1&lsquo;/g ;
        $_ =~ s/"'/&ldquo;lsquo;/g ;
        $_ =~ s/'"/&rsquo;&rdquo;/g ;
        $_ =~ s/\s"/ &ldquo;/g ;
        $_ =~ s/^'/&lsquo;/g ;
        $_ =~ s/^"/&ldquo;/g ;
        $_ =~ s/"\s/&rdquo; /g ;
        $_ =~ s/'$/&rsquo;/g ;
        $_ =~ s/"$/&rdquo;/g ;
        $_ =~ s/(,|\.)'/$1&rsquo;/g ;
        $_ =~ s/(,|\.)"/$1&rdquo;/g ;
        $_ =~ s/(\S)'(\S)/$1&rsquo;$2/g ;
        print STDERR ($_ , "\n\n");
      }
    }
  }
}