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