while(<DATA>){
    next unless m!^\s*<([^>]+)>([^<]+)</(\1)>!;
    $h{$1}=$2;
}
use Data::Dumper;
print Dumper \%h;

__DATA__
<Reply>
<TransactionReply>
<ResponseCode>0</ResponseCode>
<ResultCode>00</ResultCode>
<ResultMessage>APPROVED</ResultMessage> 
<TransactionID>100000182165</TransactionID>
<AVSResponseCode />
<CVVResponseCode />
<ApprovalNumber>123456</ApprovalNumber>
<AuthorizationNumber>123456</AuthorizationNumber>
<TransactionDate>021112</TransactionDate>
<TransactionTime>110544</TransactionTime>
<ReferenceNumber>1234</ReferenceNumber>
<AccountNumber>XXXXXXXXXXXX1111</AccountNumber>
<TransactionAmount>1.00</TransactionAmount> 
</TransactionReply>
</Reply>