my $caseNumber = $ARGV[0];
my $pattern = "(.*?)$caseNumber(.*?)";
my $count = 0;
my @uploads;
my @files;

##Open logfiles directory and read into array.

opendir DIR, "Directory" or die "Unable to open Directory, please try again";
@files = readdir(DIR) or die "Unable to read directory";
closedir DIR;

##Loop though the files and if the pattern matches, push it into the array.
foreach (@files)
{
 if (/$pattern/)
 {
 push @uploads,$_;
 }
}