$ip =~ s/(?:(?<=\.)|^)(?=\d\b)/00/g; $ip =~ s/(?:(?<=\.)|^)(?=\d\d\b)/0/g; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl