if ( grep(/a href.*\.html/,$line) ){
 (my $newline = $line ) =~ s/\.html/\.asp/g;            
 print OUTFILE $newline . "\n";
 continue;
}