#!/usr/bin/perl

my $data_file = '/home/resources.xml';
my $data_out = '/home/out.log';
open DATA, "$data_file" or die "can't open $data_file $!";
open DATA_OUT, ">>$data_out";
my @array_of_data = <DATA>;

my %match_hash;
foreach my $line (@array_of_data){
  if ($line =~ m/authDataAlias=(.*-.*-.*_DM)/i){
    my $match = $1;
    unless($match eq ""){
      $match_hash{$match} = 1;
      print DATA_OUT "$match\n" unless defined $match_hash{$match};
    }
  }
}

close (DATA);
close (DATA_OUT);