Help for this page
while(<DATA>){ next unless m!^\s*<([^>]+)>([^<]+)</(\1)>!; ... <TransactionAmount>1.00</TransactionAmount> </TransactionReply> </Reply>