my @filelist = glob($command_args->{'dir'});
 
 my @results;
 my $mask;

 map { 
      $mask = $data;       
  
      $mask =~ s@<d>filename</d>@$_@gs;
     
      push (@results, $mask);
     } @filelist;

 $result = join('',@results);