#!/usr/bin/perl
use strict;
use warnings;

while (<STDIN>) {
    while (/(?<![\d.])(?:(?:25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)\.){3}
           (?:25[0-5]|2[0-4]\d|1\d\d|[1-9]?\d)(?![\d.])/xg) {
        print "$&\n";
    }
}