my $directory = '/usr/local/XML'; 

opendir(DIR,$directory);
my @files = grep { $_ ne '.' && $_ ne '..' } readdir DIR;
closedir(DIR);<BR>

foreach(@files){
  open (FILE,"$directory/$_") 
  my $files="$_";
  while(<FILE>){
    print $_;
    if ($_=~/(<asset-id)(.*?)>/){
       print "\t\t <local-id>$files</local-id>\n";
    }
  }
  close(FILE);
}