#!/usr/bin/perl -w
use Modern::Perl;

use Net::CIDR qw/ cidr2octets /;

while(<STDIN>){
    s{\s+$}{};
    print "$_\n" for cidr2octets($_);
}
__END__