#!/usr/bin/perl

foreach $fname (@ARGV){
    print "Processing: $fname\n";
    open (FILE, $fname) || die("Cannot open file $fname! ($!)\n");

    $file = join( "", <FILE>);
    close(FILE);

    rename ($fname, $fname.".bak");

    $file =~ s/<META NAME=.*?>\n//gis;

    $file =~ s/<P STYLE.*?>/<P>/gis;

    $file =~ s/&ndash\;/-/gis;
    $file =~ s/&rdquo\;/\"/gis;
    $file =~ s/&ldquo\;/\"/gis;
    
    $file =~ s/<FONT.*?>//gis;
    $file =~ s/<\/FONT>//gis;
    $file =~ s/<SPAN.*?>//gis;
    $file =~ s/<\/SPAN>//gis;

    open (FILE, ">$fname");
    print FILE $file;
}