$dir = "nya";
foreach $i (<*.htm *.html>) {
    print "processing $i into $dir\\$i\n";
    open(OLD, "< $i") or die "coudn't open $i";
    open(NEW, "> $dir\\$i") or die "couldn't open $dir\\$i";
    undef $/;
    $_ = <OLD>;
#    s/<a[\s\n]+href=\"http\:.*\">(.*)<\/a>/$1/ig;
    s/<a[\s\n]+href=\"http\:.*?\">(.+?)<\/a>/$1/sig;
    print NEW $_;
}