$ip =~ s/\b(\d(\d?)\b)/$2 eq '' ? "00$1" : "0$1"/eg; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl