my ($last_five) = $running_total =~ /(\d{0,4}[^0\D])0*$/;