my ($last_five) = $running_total =~ /(\d{1,5}(?<!0))0*$/;