$File::Find::prune = @{$dirs{$_}} > 1;

##</code><code>##

sub dir_names {
    return if ! -d || ! /[IPD]\d{8}$/;
    push @{$dirs{$_}}, $File::Find::name;
    $File::Find::prune = @{$dirs{$_}} > 1;
}