This may also work:

if (
   my ($open_bal, $net_trx, $cash_total,
      $card_total, $cheque_total, $grand_total) =
         $body_text =~ /\$(\S+)/g
) {
   tr/,//d for
      $open_bal, $net_trx, $cash_total,
      $card_total, $cheque_total, $grand_total;

   print ...
}
[download]

With both this solution and the original solution, you can use apply to shorten the code.

use List::MoreUtils qw( apply );

if (
   my ($open_bal, $net_trx, $cash_total,
      $card_total, $cheque_total, $grand_total) =
         apply { tr/,//d; }
         $body_text =~ /\$(\S+)/g
) {
   print ...
}
[download]