sub compress_numstring {
  substr($_[0], 2) =~ s/(^0+|(0)0+|(?<!0)0([1-9]|$))/$2$3/;
  return $_[0];
}