$string = ('0' x ($wanted - $current)) . $string;

##</code><code>##

sprintf "%0${len}d", $number;