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