perl -pi.bak -e 's/OLDSTRING/NEWSTRING/g' FILELIST

##</code><code>##

for my $file (@files){
  open IN,"$directory/$file" 
    or die "Can't read $directory/$file Error: $!\n";
  open OUT,">$directory/$file.out" 
    or die "Can't write $directory/$file.out Error: $!\n";
  while(<IN>){
    chomp;  # remove newline so new data on same (?correct?) line
    print OUT $_;
    print OUT "\t\t <local-id>$file</local-id>" if /<asset-id/;
    print OUT "\n";
  }
  close IN;
  close OUT;
  # now unlink IN and rename OUT to IN if desired.
  # warning unlink will delete the original file
  # unlink "$directory/$file" or die $!;
  # rename "$directory/$file.out", "$directory/$file" or die $!;
}