#!/usr/bin/perl
# script to clean arin generated networks file
# NET : 134.245.0.0 : UNI-KIEL :
# wyy@admu.edu.ph

use strict;

while (defined (my $line = <STDIN>)) {
	chomp ($line);
	my ($ind, $ip, $owner) = split(/\s:\s/, $line);
	if ($ind eq "NET") {
		my ($a, $b, $c, $d) = ($ip =~ /^(\d+).(\d+).(\d+).(\d+)/);

		if (($b == 0) && ($c == 0) && ($d == 0)) {
			# class A addresses
			print "$ip/8 $owner\n";
		} elsif (($c == 0) && ($d == 0)) {
			# class B addresses
			print "$ip/16 $owner\n";
		} elsif ($d == 0) {
			# class C addresses
			print "$ip/24 $owner\n";
		} else {
			# individual hosts
			print "$ip/32 $owner\n";
		}
	}
}