#!/usr/bin/perl
# dirpath

use strict;
use warnings;
use File::Find;
#*****************Path Variables**********************
our $testpath = 'C:\\Temp\\';
#******************************************************* 
find(\&dir_names, $testpath);

sub dir_names	{
 return unless -d;
 print "$File::Find::dir/$_\n" if /[IPD]\d{8}$/;
}