s{(href="[^"]*\.html")}{
    my $s= $1;
    $s =~ s#\.html"$#.asp"#
        unless  $s =~ m#^http:#;
    $s
}ge;