#!/bin/perl

while (<STDIN>) {
	m/(\w+\.\w+\n)/;
	print $1;
}