#!/usr/bin/perl -w
use Net::CIDR ':all';
use strict;
foreach(<STDIN>) {
    chomp;
    s/\s+//g;
    if ( /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\-\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ ) {
         print Net::CIDR::range2cidr($1) . "\n";
    }
    #
    #elsif ( /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\-\d{1,3})$/ ) {
    #    print Net::CIDR::range2cidr($1) . "\n";
    #}
    elsif ( /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,2}\/\d{1,2})$/ ) {
        print "$1\n";
    }
    elsif ( /^(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})$/ ) {
        print "$1\n";
    }
    else { }
}
