opendir my $dir, $BASE_DIR or die "Cannot open $BASE_DIR directory: $!"; my @all_files = readdir $dir; closedir $dir; my @files = sort grep { $_ =~ /\-00:/ } @all_files;