Select Code to Download

$ tree
.
|-- 503170.pl
...
|   `-- analysis_completed
|-- B
`-- C

my @dirs = qw[ ... ];
my @rFiles = map{ "$_/analysis_completed" } @dirs;

...
    -e $rFiles[$_] and splice @rFiles, $_, 1 for reverse 0..$#rFiles;
}
print "All done";