Select Code to Download

@ips =
    # note: this converts any "unusual" reps to dotted-quad
...
    sort
    map { inet_aton $_ }
    @ips;

@ips =
    map { substr $_, 4 }
    sort
    map { /(\d[.\d]+\d)/; inet_aton($1) . $_ }
    @ips;