if (m/a\shref/i) { s/.html/.asp/i }

##</code><code>##

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