perl -pi.bak 's/<meta name="/<meta name="area./gi' perl/bin/dir/*

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Fcntl qw(:seek);
my $dir = './dir';

opendir(DIR,$dir) || die "Can't open $dir - $!\n";


my @files = map { "$dir/$_" } grep !/^\.{1,2}$/, readdir(DIR);
closedir DIR;

foreach my $file (@files)
{
   open(FILE, "+<$file") || die "Can't open $file - $!\n";

   my $contents = do { local $/; <FILE> };

   $contents =~ s/<meta name="/<meta name="area./gis;

   truncate(FILE,0) || die "truncate - $file : $!\n";;
   seek( FILE,SEEK_SET,0) || die "seek - $file : $!\n";
   print FILE $contents;
   close FILE;

}