Seems to me like you have to grab the return of $de->text() first. Something like this should probably do what you want:

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

The shift grabs the first value, the map puts () around the remaining values, and adds a newline to them all. goldclaw