[^>]*<\/title>\n" . "<meta http-equiv=\"Content-Type\" content=\"text\/html; charset=iso-8859-1\">\n" . "<\/head>\n\n" . "<body bgcolor=[\"]#FFFFFF[\"]>"; my $target2 = "<HTML>\n" . "<HEAD>\n" . "<TITLE>[^>]*<\/TITLE>\n" . "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text\/html; charset=iso-8859-1\">\n" . "<\/HEAD>\n" . "<BODY BGCOLOR=#FFFFFF>"; my $replace = ""; print "Changing $dir\\$file..."; open FILE, "$dir\\$file" or die "Can't open $dir\\$file: $!"; my $text; { local $/ = undef; $text = <FILE>; } $text =~ s/$target/$replace/; $text =~ s/$target2/$replace/; close FILE; open FILE, ">$dir\\$file"; print FILE $text; close FILE; print "Done.\n"; } closedir DIR;

#!/usr/bin/perl -w use strict; my $dir = shift; opendir DIR, $dir or die "Can't open $dir: $!"; foreach my $file ( grep /\.html|\.htm$/i, readdir DIR ) { ( my $newfile = $file ) =~ s/\.html|\.htm$/\.asp/i; rename "$dir\\$file", "$dir\\$newfile"; print "Changing $dir\\$file to $newfile\n"; } closedir DIR; ##

##

#!/usr/bin/perl -w
use strict;

my $dir = shift;

opendir DIR, $dir or die "Can't open $dir: $!";

foreach my $file ( grep /\.asp$/i, readdir DIR ) {

    my $target = "\n" .
                 "\n" .
                 "[^>]*<\/title>\n" .
                 "<meta http-equiv=\"Content-Type\" content=\"text\/html; charset=iso-8859-1\">\n" .
                 "<\/head>\n\n" .
                 "<body bgcolor=[\"]#FFFFFF[\"]>";

    my $target2 = "<HTML>\n" .
                  "<HEAD>\n" .
                  "<TITLE>[^>]*<\/TITLE>\n" .
                  "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text\/html; charset=iso-8859-1\">\n" .
                  "<\/HEAD>\n" .
                  "<BODY BGCOLOR=#FFFFFF>";

    my $replace = "<!-- #include file=\"popupHeader\.asp\" -->";

    print "Changing $dir\\$file...";

    open FILE, "$dir\\$file" or die "Can't open $dir\\$file: $!";

    my $text;
    {
        local $/ = undef;
        $text = <FILE>;
    }

    $text =~ s/$target/$replace/;
    $text =~ s/$target2/$replace/;

    close FILE;
    open FILE, ">$dir\\$file";
    print FILE $text;
    close FILE;
    print "Done.\n";

}

closedir DIR;