#!/usr/bin/perl
#
#
#


while (<>) {
   /^([\w-+.]+)\s?/;
   print "$1\n";

}