@files_to_pull = grep /\A...4000.\./, do { opendir my $dir, "."; readdir $dir; };
print "\n$_" for @files_to_pull;