Good catch.

Rather minor correction: The original gets parsed as:

( my $pms = join("\n", @foundfiles) ), "\n";
[download]

not as

my $pms = ( join("\n", @foundfiles), "\n" );
[download]

so it is the "\n" that gets thrown away.

                - tye