#!perl -w
use strict;

while (<>) {
    if (/^\W*(\w+)(\W+\w*\W*)+(\w+)\W+$/) {
	print "$1 $3\n";
    }
}