#!/usr/bin/perl
use strict;
use warnings;
use Fcntl;

#use File::Find;
#use File::Find::Rule;
use File::Find::Rule qw/ find /;

#*****************Path Variables*******************
our $wellpath = "N:\\repos\\open\\Wells\\Regulated";
our $surveypath = "N:\\repos\\open\\Surveys\\Regulated";
our $temp = "C:\\Temp\\";
#************************************************** 

my @dirs = find(
  -directory ,
  name => qr{([MIPD]\d{8}$)},
  -in => $temp,
);
print join "\n", @dirs, '';