$ip =~ s/(?:(?<=\.)|^)(\d\d?(?!\d))/sprintf("%03d", $1)/eg;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl