my @a = $de->text();
print OUT shift @a, "\n(", join(")\n(", @a),")\n";