foreach $line(@data)
   {
      $line =~ s/<meta name\=\"AA\.\"/<meta
      name\=\"/gi;
      print DATA $line;
   }