opendir my $dh, $dir or die "Unable to opendir [$dir]: $!";
my @uploads = grep /$pattern/, readdir ($dh);
closedir $dh;