Select Code to Download

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

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

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