my %seen; # Remember IPs we have already seen

    while (<NMAP_DATA>) {
        next unless /($RE{net}{IPv4})/;
        print IP_DATA "$1\n" if not $seen{$1}++;
    }