[^>]*<\/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 /\.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 = ""; 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;