Select Code to Download

chdir(Directory) or die "Directory: $!";
@uploads = glob("*$caseNumber*");

my @uploads = map { $_ =~ m!.*/(.*)! } glob("Directory/*$caseNumber*")
+;

use File::Glob qw(:glob);