sub normalize_ip{ return join(".", map {sprintf "%d", $_} split(/\./,shift)); } [download]
In reply to Removing padding from numeric IP addresses by Coyote