Select Code to Download

my @paths = qw[
  filepart1
  filepart2
...
     my $path = `find /partial/prefix/path -name "*$_*"`;
     # ...
}

foreach (paths())
{
     my $path = `find /partial/prefix/path -name "*$_*"`;
...
        filepartN
     ];
}