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