return unless $File::Find::dir =~ /[IPD]\d{8}$/;

##</code><code>##

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

##</code><code>##

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