~s/^(\d+)$/("0"x($optimal_leng…

~s/^(\d+)$/("0"x($optimal_length-length$1)).$1/e;

Go Haskell Java JavaScript .Net Perl PHP PostgreSQL Python Ruby Tcl XRegExp

https://www.regexplanet.com/share/index.html?share=yyyyyvnphnr