Help for this page
$running_total =~ s/(\d{1,5}?)0*$/$1/;
$running_total = $1 if $running_total =~ /(\d{1,5}?)0*$/;