use strict;
use File::Find;

my %temp;
find( sub { s/mrg$/did/; 
            /did$/ and $temp{$_}++; }, '.' );
my @files = grep { $temp{$_} == 1 } keys %temp;

print "@files";