#!/usr/bin/perl

print "This will calculate the total amount and To no of transactions \n";
my $totalamt = 0;

while(<DATA>){
        chomp;
        if ($_ =~ /payment amount/i){
                $cnt++;
                while($_=~m/\<(.+?)\>(.+?)\<\/\1\>/sig){
                        my $value=$2;
                        $totalamt += $value;
                }
                print $_,"\n";
        }
}
print "The total amount found is $totalamt \n";
print "Total Transactions are    $cnt      \n";


__DATA__
<a>
        <b>
                <client account cred>68789790390909090489</client account cred>
                <Payment UTR No>MTRIN10909890896</Payment UTR No>
                <payment amount>700000</payment amount>
        </b>
        <b>
                <client account cred>9033753053985392INR</client account cred>
                <Payment UTR No>938573895735154</Payment UTR No>
                <payment amount>1222706</payment amount>
        </b>
        <b>
                <client account cred>9284723472047222INR</client account cred>
                <Payment UTR No>RP JLLKL7687</Payment UTR No>
                <payment amount>1437865.95</payment amount>
        </b>
</a>