sprintf '%0*d', $len, $value;