If I understood your question correctly, then try something like:

my @a = $de->text();
print OUT shift @a, "\n", join("\n", map { "($_)" } @a);
[download]

The shift returns (and removes) the first element, while the map adds those brackets. This is just one possible solution. You also may have a look at printf. Hope this helps.

alex pleiner <alex@zeitform.de>
zeitform Internet Dienste