Select Code to Download

<?xml version="1.0" encoding="iso-8859-1" ?><TransactionPart Sub='PRFN
+' Part='1' Id='ALAABADOCKAGDI'><Event Row='1' File='RELATIONSHIP_FILE
+' ISN='23290' Time='2005/11/11-17:05:39' Op='Update'></TransactionPar
+t>
<?xml version="1.0" encoding="iso-8859-1" ?><TransactionPart Sub='PRF'
+ Part='1' Id='AABADOCKAGDI'><Event Row='1' File='RELATIONSHIP_FILE' I
+SN='2180' Time='2005/11/11-17:05:39' Op='Update'></TransactionPart>
<?xml version="1.0" encoding="iso-8859-1" ?><TransactionPart Sub='PRFN
+' Part='1' Id='AABADOCKAGDI'><Event Row='1' File='PRODUCT_RELATIONSHI
+P_FILE' ISN='1

my $terminator = "<\/notification>|<\/TransactionPart>";

$msg_payload =~ /($terminator?([^$terminator]*))$/;

$truncate = $';