The following variant of the above is how I would write it.

# SNIP #
my @temp = map { $_ . "\n" } map { split(/\s+/) } <DATA>
# SNIP #
[download]

It is functionally the same, I just find it easier to read, but then my views of readability don't always align with others.