$running_total =~ s/(\d{0,4}[1-9])0*$/$1/;