my @ip_address = sort $1, "\n" if /($RE{net}{IPv4})/;
print IP_DATA @ip_address if (!/^\s*$/);