Two step solution is clever, saves work, here is the other way , direct translation

#my @archivesInFilesystem =
#    `find $searchLocation -type f 2> /dev/null 
#        | grep -v \"\/archive\/archive\/\"`;

use File::Find::Rule qw/ find rule /
my $keepers = sub {
## $_ is like $fullname
##     my( $shortname, $path, $fullname ) = @_;
##     return !!1 if $fullname =~ m{/archive/archive/}; # keeper
    return !!1 if m{/archive/archive/}; # keeper
    return !!0;    # goner
};; 
my @archivesInFilesystem = find(
    file =>
    exec => $keepers,
    in => $searchLocation,
);
[download]