$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 $/;
$_ = ;
# s/(.*)<\/a>/$1/ig;
s/(.+?)<\/a>/$1/sig;
print NEW $_;
}