#assume a debug file opened elsewhere
print DEBUG "\n\nItem: $itemIndex\n\n$body\n";
#... your code
print DEBUG "\n\nAfter modification ($itemIndex)\n$body\n";