#!/usr/bin/perl -w
use strict;
while(<STDIN>) {
    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 "$1\n";
    }
    elsif (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,2}\/\d{1,2})/) {
        print "$1\n";
	next
    }
    elsif (/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/) {
        print "$1\n"
    }
    else  { }
}

