#!/usr/bin/perl
use warnings;
use Regexp::Common qw/net/;
open (NMAP_DATA, "@ARGV") or die "Please type the filename. $!" ;
open (IP_DATA, ">ipdata") or die "can't write to ipdata file";
while (<NMAP_DATA>) {
my @ip_address = sort $1, "\n" if /($RE{net}{IPv4})/;
print IP_DATA @ip_address if (!/^\s*$/);
}
close (IP_DATA) ;
close (NMAP_DATA);