Select Code to Download

...
<entry>
...
  <content>The content itself</content>
</entry>
...

my $tmpComments = File::Temp->new(SUFFIX=>'.txt') or die "File::Temp: 
+$!\n";
foreach (#Go through the whole xml file) {
...
  # $posturl holds the <in-reference-to> url
  }
}

foreach (#Loop through the xml file again) {
  print "$title\n";
...
  }
  print $comments;
}