$ip =~ s/\b(\d\d?(?!\d))/sprintf("%03d", $1)/eg; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl