$ip =~ s/\b(\d\d?\b)/'0' x (3-length($1)) . $1/eg; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl