my ($last_five) = map scalar reverse, 
                  map /^(?>0*)(\d{1,5})/,
                  map scalar reverse, 
                  $running_total;