aggregation.pl

#!/usr/bin/perl

use strict;
use warnings;

use Net::CIDR::Lite;

my $cidr = Net::CIDR::Lite->new;

while (<>) {
   chomp;
   m|([.\d]{7,15}(?:/\d{1,2})?)| and $cidr->add_any($1);
}

my @cidr_list = $cidr->list;
my $string = join "\n",@cidr_list;
print $string,"\n";