use strict;
use warnings;

##</code><code>##

while($_=~m/\<(.+?)\>(.+?)\<\/\1\>/sig)

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

print "This will calculate the total amount and number of transactions.\n";
my $totalamt = 0;
my $cnt = 0;

my @amounts = ();

while(<DATA>)
{
    chomp;
    @amounts =  /\<payment amount\>(\d+(?:.\d{2})?)\<\/payment amount\>/sig;
    foreach my $amt (@amounts)
    {
        $cnt++;
        $totalamt += $amt;
    }
}
print sprintf("The total amount found is \$%.2f\n",$totalamt);
print         "Total no. of transactions: $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></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>
        <b>
                <client account cred>9284723472047222INR</client account cred>
                <Payment UTR No>RP JLLKL7687</Payment UTR No>
                <payment amount>this is garbage</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>