$ip = sprintf("%03d.%03d.%03d.%03d",
              $ip =~ m/^(\d+)\.(\d+)\.(\d+)\.(\d+)$/);




-----------------------------------------------------------------------------
Copyright 1997-2025 Jeffrey Friedl