Select Code to Download

use strict;
use warnings;

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

#!/usr/bin/perl
use strict;
...
        </b>
        <b><client account cred>9033753053985392INR</client account cr
+ed><Payment UTR No>938573895735154</Payment UTR No><payment amount>12
+22706</payment amount></b><b><client account cred>9284723472047222INR
+</client account cred><Payment UTR No>RP JLLKL7687</Payment UTR No><p
+ayment amount>1437865.95</payment amount></b>
</a>