"What do you mean by "complete text"?"

What anonymous said below, the method Cody Fendant should have used to get the combined text for all descending nodes is all_text, rather than text, so

print $e->text,$/;
[download]

becomes

print $e->all_text,$/;
[download]

Very handy, even for one liners/ojo use.