in reply to Re: increment # but keep # of digits same
in thread increment # but keep # of digits same

$width  = 4;
$number = substr(sprintf("%0${width}d", $number + 1), -$width);

[download]

In Section Seekers of Perl Wisdom