Select Code to Download

use warnings;
use strict;
...
    $value =~ s/(\d{3})(?=\d)/$1,/g;
    return scalar reverse $value;
}

Current Account Balance: $100,000,000.00
Current Account Balance: $100.00
Current Account Balance: $1,000.00