Select Code to Download

   ...
   print "Got: $in\n";
...
     ...
     # save file
   }

Got: X-Call~4.xml#:#380_<?xml version="1.0"?>

if ($in =~ /__END$/) {
  # close previous file
...

  # proceed with saving the file
}