user@yourbox /home/httpd/html ] $ ls *.html *.asp | while read file;do newfile="$file.fixed";sed s/\.html/\.asp/ $file > $newfile;done


##</code><code>##

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

# open our current directory
opendir(DD,".") or die("Cannot open ". getcwd ."\n");

# read our files getting only files named *.html 
# and *.asp
my @FILES = grep(/(\.html|\.asp),readdir(FD)) or die ("Could not get directory listing: $!\n");

# close our directory descriptor
close(DD);

# walk our array that has the file names in it we should go through.
while ( @FILES ) {
    my $file = $_ ;
    my $newfile = "$file.fixed";

# open two descriptors
# FD for our original files
    open(FD,$file) or die("Cannot open $file\n";

# NEW for our newly created (hopefully fixed) files.
    open(NEW,">>$newfile") or die ("Cannot open $newfile for writing\n");

# walk each file
    while ( <FD> ) {
        chomp;

# replace anything in a line with <a href in it
# that has .html to .asp
        if ( grep(/<a href/) ) {
            my $newline =~ s/\.html/\.asp/;

# append that to the new file.
            print NEW "$newline\n";
        } else {
# otherwise just append the old line into
# the file.
            print NEW "$_\n";
        }
    }
# Close the descriptor for these files before
# the next loop iteration
    close(NEW);
    close(FD);
}