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

##</code><code>##

C:\Temp\hddzip>perl dirpathdupes.pl
C:\Temp/Alcohol/P12345678
C:\Temp/I12345678
C:\Temp/P12345678
C:\Temp/harddrives/P12345678
C:\Temp/hddzip/P12345678