I tried it with this but the regular expression part isnt working and it seems to only cover one directory.

@files = glob('c:\perl\bin\newer\*');

foreach $db (@files)
{
open(DATA, "$db") or die "File does not open: $!";
@data = (<DATA>);
close (DATA);
open(DATA, ">$db") or die "File not open: $!";

foreach $line (@data)
{

$line =~ s/<meta name\=\AA\.\"/<meta name\=\\./gi;
print DATA $line;
}
close(DATA);
}
[download]