Select Code to Download

..............
if($body_text=~m/Opening Balance (.*) Net Transaction (.*) Cash Total 
+(.*) Card Total (.*) Cheque Total (.*) Grand Total ([^ ]*) /)
...
}
.....................

($open_bal,$net_trx,$cash_total,$card_total,$cheque_total,$grand_total
+)=join "",split ",",substr($$_,1) for (1..6);