I'm not sure why people lean so heavily on something so massively general-purpose like __DATA__ when there are better ways to do it. Perl will happily parse your stuff for you at compile time:

my @paths = qw[
  filepart1
  filepart2
  ...
  filepartN
];

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

No chomp, no mess, and no silly errors.

If this list is just too huge to be practical, you can always toss it into a subroutine, which will allow you to reorder things:

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

sub paths
{
     qw[
        filepart1
        filepart2
        ...
        filepartN
     ];
}
[download]