#!/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;
foreach my $line (@array_of_data)
{

     if ($line =~ m/authDataAlias=(.*-.*-.*_DM)/i)
        {
        $match = $1;
        print DATA_OUT "$line\n";
        }
}

close (DATA);
close (DATA_OUT);