#!/usr/bin/perl




$fn = $ARGV[0] unless ! $ARGV[0];




if (!$ARGV[0]){




    print "Input File:\n";




    chop($fn = <STDIN>);




    }




open (INF,"< $fn");




$fn=~ s/\.htm?./\.txt/;




open (OUF,"> $fn");




sub par




    {



    $par = shift;



    $par =~ s/<.*script.*>/----- Script -----\n/gsi;



    $par =~ s/<img.+>/\n---------\n\| Image \|\n---------\n/gsi;



    $par =~ s/<br>/\n/gs;



    $par =~ s/<.*?>//gs;



    $par =~ s/\&nbsp;//g;



    $par =~ s/(\&)(\w)(grave;|acute;)/$2\'/g;



    $par =~ s/\&lt;/</g;



    $par =~ s/\&gt;/>/g;



    $par =~ s/\&quot;/\"/g;



    }    



while ($nl=<INF>)




{




$cl .= $nl;




    if ($cl =~ /.*>[^<]*\n/)




    {




    par($cl);




    print OUF $par;




    undef $cl;




    }




}




par($cl);




print OUF $par;




close (INF);




close (OUF);