Select Code to Download

my @logentries = ();
my $toss = 1;
...
# decide what to do with each entry,
# handling XML content with a suitable module when necessary
}

my $entry = "";
while (<LOGDATA>) {
...
$result = &handleEntry( $entry ) if $entry;
# and replace the "foreach" loop in the previous version
# with "sub handleEntry { ... }"