#!/usr/local/bin/perl
while ($filename = <*>) {
        open(FILELIST, $filename);
        $newfilename="$filename.x";
        while ($name= <FILELIST>) {
                open(IN, $filename);
                open(OUT, ">$newfilename");
                while (<IN>) {
                        s/homepage3\.html//g;
                        print OUT $_;
                        }
                close(IN);
                close(OUT);
                }
unlink "$filename";
rename $newfilename, $filename;
close(FILELIST);
}