#!/usr/local/bin/perl
@files = glob('/perl/bin/dir');

foreach $db (@files)
{
opendir(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\=\"/<meta name\=\"area\./gi;
print DATA $line;
}
close(DATA);
}