#!/usr/bin/perl
# dirdupes

use strict;
use warnings;
use File::Find;
#*****************Path Variables**********************
our $testpath = 'C:\\Temp\\';
#******************************************************* 

my %dirs;
find(\&dir_names, $testpath);
my @dup_dirs = grep { $dirs{$_} > 1 } sort keys %dirs;
foreach my $list (@dup_dirs) {
	print "$list\n";
}

sub dir_names
{
    return unless -d;
    return unless /[IPD]\d{8}$/;
	$dirs{$File::Find::name} = 1;
	++$dirs{$File::Find::name};
}